(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     93657,       1977]
NotebookOptionsPosition[     91980,       1921]
NotebookOutlinePosition[     92338,       1937]
CellTagsIndexPosition[     92295,       1934]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "url", "=", 
   "\"\<http://en.wikipedia.org/w/api.php?action=query&prop=revisions&titles=\
Mathematica&rvprop=user|timestamp&rvlimit=500&redirects$rvuser&format=xml\>\"\
"}], ";"}]], "Input",
 CellChangeTimes->{{3.464965342752841*^9, 3.464965343317379*^9}, {
   3.464965853133403*^9, 3.4649658797247677`*^9}, {3.4649659362493277`*^9, 
   3.464965959076996*^9}, {3.464966012044252*^9, 3.464966031455431*^9}, {
   3.464966065854226*^9, 3.46496606925983*^9}, {3.464966109853024*^9, 
   3.4649661339503593`*^9}, {3.4649661731447477`*^9, 
   3.4649661982798433`*^9}, {3.464966317531437*^9, 3.4649663608004704`*^9}, {
   3.4649666511493893`*^9, 3.464966750649765*^9}, {3.464966785132022*^9, 
   3.464966809115387*^9}, {3.464968196478141*^9, 3.464968203593994*^9}, {
   3.464968250175171*^9, 3.464968250564386*^9}, 3.464968282858754*^9, {
   3.464968395935934*^9, 3.464968397051569*^9}, 3.464968444883985*^9, 
   3.464968481980986*^9, {3.46496854291951*^9, 3.4649685603068533`*^9}, {
   3.464968906289441*^9, 3.464968917057301*^9}, {3.464969043781026*^9, 
   3.464969044999357*^9}, {3.4649692691686573`*^9, 3.4649692746939297`*^9}, {
   3.464969531593712*^9, 3.464969535685857*^9}, {3.4649695666595173`*^9, 
   3.464969568958252*^9}, {3.4649696593012533`*^9, 3.464969662648994*^9}, {
   3.464970442394978*^9, 3.464970446077335*^9}, {3.464971999794717*^9, 
   3.464972003799958*^9}, {3.4649797115221596`*^9, 3.464979737995406*^9}, {
   3.4649797813478823`*^9, 3.4649797826894846`*^9}, {3.46497981443554*^9, 
   3.464979820519551*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"xml", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"url", ",", "\"\<XML\>\""}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.464965883275779*^9, 3.4649658863841467`*^9}, {
   3.464966892318592*^9, 3.464966896177869*^9}, {3.464967286698288*^9, 
   3.4649672989143953`*^9}, 3.46496849235083*^9, 3.464969320353146*^9, 
   3.4649797894442964`*^9, 3.464980193564577*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"times", "=", 
   RowBox[{"Cases", "[", 
    RowBox[{"xml", ",", 
     RowBox[{
      RowBox[{"XMLElement", "[", 
       RowBox[{"\"\<rev\>\"", ",", "w_", ",", "_"}], "]"}], "\[RuleDelayed]", 
      "w"}], ",", "Infinity"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.464967103940381*^9, 3.464967165758827*^9}, {
   3.4649672128429213`*^9, 3.464967222404085*^9}, {3.46496731620371*^9, 
   3.464967427249238*^9}, 3.4649675749411182`*^9, {3.464979855042412*^9, 
   3.4649799568793907`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<user\>\"", ",", "\"\<timestamp\>\""}], "}"}], "/.", " ", 
    "times"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4649799614813986`*^9, 3.464979977767827*^9}, {
  3.4649800587548656`*^9, 3.4649801059955683`*^9}, {3.4649802038341637`*^9, 
  3.4649802349639444`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"timestamp", "=", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.464980263714589*^9, 3.4649802881479864`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dates", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"DateList", "[", 
       RowBox[{"{", 
        RowBox[{"#", ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Year\>\"", ",", "\"\<-\>\"", ",", "\"\<Month\>\"", ",", 
           "\"\<-\>\"", ",", "\"\<Day\>\"", ",", "\"\<T\>\"", ",", 
           "\"\<Hour\>\"", ",", "\"\<:\>\"", ",", "\"\<Minute\>\"", ",", 
           "\"\<:\>\"", ",", "\"\<Second\>\"", ",", "\"\<Z\>\""}], "}"}]}], 
        "}"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ";;", "3"}], "]"}], "]"}], "&"}], "/@", "timestamp"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4649677140151043`*^9, 3.464967815351446*^9}, {
  3.464980291423174*^9, 3.464980293470291*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"revhist", "=", 
   RowBox[{"Tally", "[", "dates", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.464967821747669*^9, 3.4649678378646917`*^9}, {
  3.464969846199862*^9, 3.464969848514196*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateListPlot", "[", 
  RowBox[{"revhist", ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "Medium", "]"}], ",", "Red"}], "}"}]}], ",", 
   RowBox[{"DateTicksFormat", "->", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Year\>\"", ",", "\"\</\>\"", ",", "\"\<Month\>\"", ",", "\"\</\>\"",
       ",", "\"\<Day\>\""}], "}"}]}], ",", 
   RowBox[{"Filling", "\[Rule]", "Bottom"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "0"}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Daily Revision History of Mathematica\>\"", ",", "Bold", ",", 
      "Large"}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4649678402034903`*^9, 3.464967888220793*^9}, {
  3.464967933750298*^9, 3.464967975895893*^9}, {3.464968013294003*^9, 
  3.464968050171543*^9}, {3.464968103872923*^9, 3.464968161535236*^9}, {
  3.464968311940509*^9, 3.464968359733952*^9}, {3.464969604971863*^9, 
  3.46496963812169*^9}, {3.464970011775371*^9, 3.464970013697153*^9}, {
  3.46497016112425*^9, 3.464970193579904*^9}, {3.464970417211755*^9, 
  3.464970418901869*^9}, {3.464971346574443*^9, 3.464971361174079*^9}, {
  3.464971939174036*^9, 3.464971950288238*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJztmWtsVEUYhlcDBNHENRIhwctyTSFo1sTwA0G2hKhoxJUCpcXoQgCBQlkR
ECiQJdyUW1eqpYiBBQQUCrbKJSm0XZWL3FcUIlalicVIomSNiWj0hz3fR3e+
h4QYogQ1fX8UHubMzDdzztntw3QcNXnwmJt9Pl9h4w/vz8YkH01dyNa/pvs1
/qiYfqKJ/aHGH4Ffjzdxe4/TxzPs8zg0+FgTt5brhx5F/3SPo7g+fuYI5vMN
J6fuP4Lro2cPo92/kFyfT461Ooz+6cWfoD1yCzl47hDXv/wgON1wAJysOoDx
I2PZnqjeD46WkP399qN/uPRjsLkf2imb7akBH7H+X2rR7jtWi/0391MSfYrX
hzrXsr7faq52/yXhcA3349PqJm4r+zGnmvt3nP193dme+Hwf64ntQ3t4+15w
vMVe1JdYsYfPy+g9XI9/D9fTdzfHq9l1tef58j9e0b5qJ/t3+IDP10/v8/lc
VwkOXKrg/m3IsLw/0aL3+Dye2oH2yLbtfH9yyame5OgX5dyPBeUYL9ayHOsL
121jvZXbsH++nVu5/uJ3+Dw+TE7s28L9uJMcq93M+Qo2Y77kXZtRX/yHTeBg
GdlXuInzRd/G51fkvo1oD3XawOuPr2d9M8nhp8mBruuxn/HNCd6frATqi51Z
y/HK16I9vXMNn6deazC+//Y3WW/DaqyvoirD8j6az2NJoM9q3r/qMs5XQvb1
I6fakkOlq7hfP5Zyf1aXcn09WE/F1NdZz8sluP/BziXoH521ks9zN3J4zmsc
z33fSGItill/m+V8nnov5XrPL0F7Yu8Srm/Cq6zv4mK2H1rE9b+1iPVfWsD6
B5EDXcjJk/O536fn4fkI7ojx/W9JDnwzl+vbPYfP07ez+bwWz0Z72p9hed6S
3xVd7ftckrgwC+P5C2ahf6BsJvfnyHSsJ7FxGt//z17ifp19kZ8/X0W5v+cm
c78i5MBt5OSeQu5PwyR+nlVlWN6v+jvYHiwtQLtvYgHqT2UXcLx25MDB8bg+
cs94jv/zONa3dhyujz5BDgV4ff3RF1jP72PYf0uG5f2rzxqD/vGbRvP9+XIU
x19IrhhBjj1IDnw9EvMnXxnJ9bYh++ojvP78c3w+Jz7L+9mfHLk4gu9HB7L/
UD7WXzEln/U/znb7+6oX8/uqJLkuj98P0/LQ3/w+Kwl2zMP6fJeG834fG472
xAZydAavrziZy/o35aKecFEu+gee4fXJP4bx/TtFDs4l+4YMY73dydHTQ/n8
bBuK/v55bK8fxvaKnmwP1uVw/kqy8QP9t9amvevAlQ/Nzfx+3T5Ut3vSrfmG
G39M/bAWHJx8BX9fA56wznBh3e6+z1c7XtllYKfHDA9c2SVvxS7M32H4LoyX
epff7/EcciKr1HHjehrmv4H20Nk42Jcs5vzLitj+iOGNSx/YOiAf7aNr8zDf
sil5rLcbOVScA45NuoJb8f4YX5MYX5MYX5MYX9P+ztck1tdkvLFk42sS42sS
62terK/JfNlk42dar/EzyTGy9TEvxsd0fudjOn+YbPxL1zeHbHxLYn1L5ouR
jW9JjG9pf+NbUv9osvEtifEtHc/4lhZANn6l1zu/0vU5v5IYv9L5nF9JjF9p
vc6vJMavdHznV5pcsvErHc/5lcT4lcT6lRfjV1pvJdn4lcT4lcT4lcT4lcT4
lc7v/ErnKyBbv5L5jF/JfGVk41c6n/MrifErifErvd75ldY3k2z8SuvtSjZ+
pckiG7/S8crJxq+03l5k41dar/MrifErra8P2fiUjl9CNj4lMT4lMT6l63E+
pfOtJht/0vmdP0msP3kx/iQx/iQx/qTzO1/S+owvyfjOl3Q9xpe8GF/S+o0v
ST3Ol7Td+JIX40tar/MlrXcQ2fiSxPiSrsf5ktbvfEnraUk2vqTrc74ksb4k
4xeTjS9pPc6XJNaPZH0FZOtHMp7zI+1v/MiL8SOJ8SOJ8SOdz/mR1h8hGz/S
+p0fSYwfaT1VZONHOr/zI81EsvEjHa8d2fqRF+NHOr7zIx1vLdn6kRfjR1qv
8SPpb/xI+m8hGz+SGD/S8Z0f6fULycaPJMaPJNaPvBg/khg/ujxBhNc7P5IY
P9L2/mTjRxLjRxLjR1r/FLLxIx3f+Y/E+I/W35FsfEdifceL9R2pbwbZ+I7W
s4lsfceL8R2t1/iO1HuKbH1HMoRsfEfrc74jsb7jxfiOxPqOrKcn2fqOpJJs
/UbW03y+w/Xf4POdwMQMd5L6/+b5Tmp9hrNkP6/xfKf+RA3qudbznWBOhgNS
37/8fCc4YRfW23y+03y+g+fxP3a+Ex6b4S4e3+jznUg68/9P8nlwvc93fMPi
WH/z+c71Pd8JjivC/W0+32k+38H+/8/Od8L3Zri3x+nDGV+5W+r7i/OdyJMZ
DnncfL7zz57vpBbl4H7gfOdPRDTaaA==
   "], {{{}, {}, {}, {}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{26, 1}], LineBox[{31, 2}], 
      LineBox[{35, 3}], LineBox[{39, 4}], LineBox[{50, 5}], LineBox[{95, 6}], 
      LineBox[{104, 7}], LineBox[{111, 8}], LineBox[{134, 9}], 
      LineBox[{181, 10}], LineBox[{182, 11}], LineBox[{185, 12}], 
      LineBox[{207, 13}], LineBox[{233, 14}], LineBox[{234, 15}], 
      LineBox[{235, 16}], LineBox[{236, 17}], LineBox[{237, 18}], 
      LineBox[{238, 19}], LineBox[{239, 20}], LineBox[{240, 21}], 
      LineBox[{241, 22}], LineBox[{242, 23}], LineBox[{243, 24}], 
      LineBox[{244, 25}], LineBox[{245, 27}], LineBox[{246, 28}], 
      LineBox[{247, 29}], LineBox[{248, 30}], LineBox[{249, 32}], 
      LineBox[{250, 33}], LineBox[{251, 34}], LineBox[{252, 36}], 
      LineBox[{253, 37}], LineBox[{254, 38}], LineBox[{255, 40}], 
      LineBox[{256, 41}], LineBox[{257, 42}], LineBox[{258, 43}], 
      LineBox[{259, 44}], LineBox[{260, 45}], LineBox[{261, 46}], 
      LineBox[{262, 47}], LineBox[{263, 48}], LineBox[{264, 49}], 
      LineBox[{265, 51}], LineBox[{266, 52}], LineBox[{267, 53}], 
      LineBox[{268, 54}], LineBox[{269, 55}], LineBox[{270, 56}], 
      LineBox[{271, 57}], LineBox[{272, 58}], LineBox[{273, 59}], 
      LineBox[{274, 60}], LineBox[{275, 61}], LineBox[{276, 62}], 
      LineBox[{277, 63}], LineBox[{278, 64}], LineBox[{279, 65}], 
      LineBox[{280, 66}], LineBox[{281, 67}], LineBox[{282, 68}], 
      LineBox[{283, 69}], LineBox[{284, 70}], LineBox[{285, 71}], 
      LineBox[{286, 72}], LineBox[{287, 73}], LineBox[{288, 74}], 
      LineBox[{289, 75}], LineBox[{290, 76}], LineBox[{291, 77}], 
      LineBox[{292, 78}], LineBox[{293, 79}], LineBox[{294, 80}], 
      LineBox[{295, 81}], LineBox[{296, 82}], LineBox[{297, 83}], 
      LineBox[{298, 84}], LineBox[{299, 85}], LineBox[{300, 86}], 
      LineBox[{301, 87}], LineBox[{302, 88}], LineBox[{303, 89}], 
      LineBox[{304, 90}], LineBox[{305, 91}], LineBox[{306, 92}], 
      LineBox[{307, 93}], LineBox[{308, 94}], LineBox[{309, 96}], 
      LineBox[{310, 97}], LineBox[{311, 98}], LineBox[{312, 99}], 
      LineBox[{313, 100}], LineBox[{314, 101}], LineBox[{315, 102}], 
      LineBox[{316, 103}], LineBox[{317, 105}], LineBox[{318, 106}], 
      LineBox[{319, 107}], LineBox[{320, 108}], LineBox[{321, 109}], 
      LineBox[{322, 110}], LineBox[{323, 112}], LineBox[{324, 113}], 
      LineBox[{325, 114}], LineBox[{326, 115}], LineBox[{327, 116}], 
      LineBox[{328, 117}], LineBox[{329, 118}], LineBox[{330, 119}], 
      LineBox[{331, 120}], LineBox[{332, 121}], LineBox[{333, 122}], 
      LineBox[{334, 123}], LineBox[{335, 124}], LineBox[{336, 125}], 
      LineBox[{337, 126}], LineBox[{338, 127}], LineBox[{339, 128}], 
      LineBox[{340, 129}], LineBox[{341, 130}], LineBox[{342, 131}], 
      LineBox[{343, 132}], LineBox[{344, 133}], LineBox[{345, 135}], 
      LineBox[{346, 136}], LineBox[{347, 137}], LineBox[{348, 138}], 
      LineBox[{349, 139}], LineBox[{350, 140}], LineBox[{351, 141}], 
      LineBox[{352, 142}], LineBox[{353, 143}], LineBox[{354, 144}], 
      LineBox[{355, 145}], LineBox[{356, 146}], LineBox[{357, 147}], 
      LineBox[{358, 148}], LineBox[{359, 149}], LineBox[{360, 150}], 
      LineBox[{361, 151}], LineBox[{362, 152}], LineBox[{363, 153}], 
      LineBox[{364, 154}], LineBox[{365, 155}], LineBox[{366, 156}], 
      LineBox[{367, 157}], LineBox[{368, 158}], LineBox[{369, 159}], 
      LineBox[{370, 160}], LineBox[{371, 161}], LineBox[{372, 162}], 
      LineBox[{373, 163}], LineBox[{374, 164}], LineBox[{375, 165}], 
      LineBox[{376, 166}], LineBox[{377, 167}], LineBox[{378, 168}], 
      LineBox[{379, 169}], LineBox[{380, 170}], LineBox[{381, 171}], 
      LineBox[{382, 172}], LineBox[{383, 173}], LineBox[{384, 174}], 
      LineBox[{385, 175}], LineBox[{386, 176}], LineBox[{387, 177}], 
      LineBox[{388, 178}], LineBox[{389, 179}], LineBox[{390, 180}], 
      LineBox[{391, 183}], LineBox[{392, 184}], LineBox[{393, 186}], 
      LineBox[{394, 187}], LineBox[{395, 188}], LineBox[{396, 189}], 
      LineBox[{397, 190}], LineBox[{398, 191}], LineBox[{399, 192}], 
      LineBox[{400, 193}], LineBox[{401, 194}], LineBox[{402, 195}], 
      LineBox[{403, 196}], LineBox[{404, 197}], LineBox[{405, 198}], 
      LineBox[{406, 199}], LineBox[{407, 200}], LineBox[{408, 201}], 
      LineBox[{409, 202}], LineBox[{410, 203}], LineBox[{411, 204}], 
      LineBox[{412, 205}], LineBox[{413, 206}], LineBox[{414, 208}]}}, {{}, 
     {RGBColor[1, 0, 0], PointSize[Medium], PointBox[CompressedData["
1:eJwV0VdbiAEAQOGv7JlNEpVNtpBUKrJXRvbIXvlJyMreo4zsPbJ3ZO/MIqLX
xfs85/5EZ63KyA4JgqCQ1WINa8lhHevZwEY2kctmtrCVbWxnBzvZxW72sJd9
7OcABzlEHvkc5ghHOUYBxznBSU5xmjOc5RznucBFLnGZK1zlGoVc5wY3ucVt
7nCXe9znAQ95xGOKeMJTinnGc17wkle85g1vecd7PvCRT5TwmS985Rvf+UEp
ZfzkF+X85g8V/OXf/xGhQRBCKFWoSjWqU4Oa1KI2dahLPeoTRgMa0ojGNKEp
zWhOC8JpSQStiKQ1bYgimhja0o72dKAjnehMF7oSSze604Oe9KI3fehLHP3o
zwDiGUgCg0gkiWQGk0IqaQxhKOkMYzgjGMkoRjOGsYxjPBPIYCKTmMwUMpnK
NKYzg5nMYjZzmMs8spjPAhayiMUsYSnLWM4KVpJNJV0Lags=
       "]]}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->NCache[{3398976000, 0}, {3.398976*^9, 0}],
  Frame->True,
  FrameTicks->{{Automatic, Automatic}, {{{
       NCache[3397766400, 3.3977664*^9], 
       FormBox["\"2007/09/03\"", TraditionalForm]}, {
       NCache[3412886400, 3.4128864*^9], 
       FormBox["\"2008/02/25\"", TraditionalForm]}, {
       NCache[3428006400, 3.4280064*^9], 
       FormBox["\"2008/08/18\"", TraditionalForm]}, {
       NCache[3443126400, 3.4431264*^9], 
       FormBox["\"2009/02/09\"", TraditionalForm]}, {
       NCache[3458246400, 3.4582464*^9], 
       FormBox["\"2009/08/03\"", TraditionalForm]}, {
       NCache[3473366400, 3.4733664*^9], 
       FormBox["\"2010/01/25\"", TraditionalForm]}, {
       NCache[3400790400, 3.4007904*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3403814400, 3.4038144*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3406838400, 3.4068384*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3409862400, 3.4098624*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3415910400, 3.4159104*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3418934400, 3.4189344*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3421958400, 3.4219584*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3424982400, 3.4249824*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3431030400, 3.4310304*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3434054400, 3.4340544*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3437078400, 3.4370784*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3440102400, 3.4401024*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3446150400, 3.4461504*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3449174400, 3.4491744*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3452198400, 3.4521984*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3455222400, 3.4552224*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3461270400, 3.4612704*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3464294400, 3.4642944*^9], 
       FormBox["\"\"", TraditionalForm]}}, {{
       NCache[3397766400, 3.3977664*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3412886400, 3.4128864*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3428006400, 3.4280064*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3443126400, 3.4431264*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3458246400, 3.4582464*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3473366400, 3.4733664*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3400790400, 3.4007904*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3403814400, 3.4038144*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3406838400, 3.4068384*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3409862400, 3.4098624*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3415910400, 3.4159104*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3418934400, 3.4189344*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3421958400, 3.4219584*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3424982400, 3.4249824*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3431030400, 3.4310304*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3434054400, 3.4340544*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3437078400, 3.4370784*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3440102400, 3.4401024*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3446150400, 3.4461504*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3449174400, 3.4491744*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3452198400, 3.4521984*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3455222400, 3.4552224*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3461270400, 3.4612704*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3464294400, 3.4642944*^9], 
       FormBox["\"\"", TraditionalForm]}}}},
  GridLines->NCache[{{{3397766400, 
       GrayLevel[0.8]}, {3412886400, 
       GrayLevel[0.8]}, {3428006400, 
       GrayLevel[0.8]}, {3443126400, 
       GrayLevel[0.8]}, {3458246400, 
       GrayLevel[0.8]}, {3473366400, 
       GrayLevel[0.8]}}, None}, {{{3.3977664*^9, 
       GrayLevel[0.8]}, {3.4128864*^9, 
       GrayLevel[0.8]}, {3.4280064*^9, 
       GrayLevel[0.8]}, {3.4431264*^9, 
       GrayLevel[0.8]}, {3.4582464*^9, 
       GrayLevel[0.8]}, {3.4733664*^9, 
       GrayLevel[0.8]}}, None}],
  ImageSize->{677., Automatic},
  PlotLabel->FormBox[
    StyleBox[
    "\"Daily Revision History of Mathematica\"", Bold, Large, StripOnInput -> 
     False], TraditionalForm],
  PlotRange->{{3.398976*^9, 3.46464*^9}, {0, 6.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->None]], "Output",
 CellChangeTimes->{{3.464968143150234*^9, 3.4649681732316227`*^9}, 
   3.4649682339322567`*^9, 3.4649682750433083`*^9, 3.464968318028234*^9, {
   3.464968352897419*^9, 3.464968368274489*^9}, 3.464968403378379*^9, 
   3.464968451592572*^9, 3.46496930382565*^9, 3.464969550894972*^9, {
   3.464969585711419*^9, 3.464969678264724*^9}, 3.4649700146587553`*^9, {
   3.464970177924753*^9, 3.464970194556097*^9}, 3.464970458342798*^9, {
   3.46497134912381*^9, 3.464971362420681*^9}, {3.4649719423652153`*^9, 
   3.4649719511709843`*^9}, 3.464972017509316*^9, 3.4649723952095957`*^9, 
   3.4649803047509365`*^9, 3.465039517202951*^9, 3.465146466978806*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.464970221829042*^9, 3.464970258140073*^9}, 
   3.464970395232874*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mon", "=", 
   RowBox[{"Tally", "[", 
    RowBox[{"dates", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", 
       RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.464970261464305*^9, 3.464970278900893*^9}, {
  3.464970366076269*^9, 3.464970372264266*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateListPlot", "[", 
  RowBox[{"mon", ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "Medium", "]"}], ",", "Red"}], "}"}]}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"Filling", "\[Rule]", "Bottom"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"DateTicksFormat", "->", 
    RowBox[{"{", 
     RowBox[{"\"\<Year\>\"", ",", "\"\</\>\"", ",", "\"\<Month\>\""}], 
     "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "0"}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Monthly Revision History of Mathematica\>\"", ",", "Bold", ",", 
      "Large"}], "]"}]}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2008", ",", "11", ",", "8"}], "}"}], ",", "Blue"}], "}"}], 
       "}"}], ",", "None"}], "}"}]}], ",", 
   RowBox[{"Prolog", "\[RuleDelayed]", 
    RowBox[{"Text", "[", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<7.0 Release\>\"", ",", "Medium", ",", "Bold"}], "]"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2008", ",", "11", ",", "8"}], "}"}], ",", "30"}], "}"}]}], 
     "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.464970291758204*^9, 3.46497032417171*^9}, {
  3.464970424279954*^9, 3.464970429224017*^9}, {3.4649705769521713`*^9, 
  3.46497058072162*^9}, {3.4649712195144167`*^9, 3.464971224739007*^9}, {
  3.4649712722780247`*^9, 3.464971284607346*^9}, {3.4649716303527403`*^9, 
  3.464971686219719*^9}, {3.464971787500421*^9, 3.4649718094385757`*^9}, {
  3.4649718464496183`*^9, 3.464971931616431*^9}, {3.464972078500386*^9, 
  3.464972098811144*^9}, {3.464972133753179*^9, 3.464972134399619*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQQfzp596QhhajkAiYA7J2B8IxC/4cBhGF8DxN+w
ZB+M7wHiC2zeCeNbgPgO07fA+GYg/oKl62F8GRD/QucqGN8YxJ/wZimK/Qcu
LIDxDUH8D1tmo+gPODwNxncAu2/5RBTzHmztgfF1wO6b1Y6i36GuCYW/oKcW
1X0FFTC+DYhvUF8M40uA+AnJeSj8D7MzUcJLoSEFxjcAuzclHsZXA4dfURSM
rwJ2b1golO8QBXZfagCK+5HiB6IKIc/AAADQkV0B
   "], {{{}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
      GraphicsGroupBox[
       PolygonBox[{{1, 27, 28, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15,
         14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, {}}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[Medium], 
      LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
       19, 20, 21, 22, 23, 24, 25, 26}]}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{3.4*^9, 0},
  Frame->True,
  FrameTicks->{{Automatic, Automatic}, {{{
       NCache[3392236800, 3.3922368*^9], 
       FormBox["\"2007/07\"", TraditionalForm]}, {
       NCache[3408134400, 3.4081344*^9], 
       FormBox["\"2008/01\"", TraditionalForm]}, {
       NCache[3423859200, 3.4238592*^9], 
       FormBox["\"2008/07\"", TraditionalForm]}, {
       NCache[3439756800, 3.4397568*^9], 
       FormBox["\"2009/01\"", TraditionalForm]}, {
       NCache[3455395200, 3.4553952*^9], 
       FormBox["\"2009/07\"", TraditionalForm]}, {
       NCache[3471292800, 3.4712928*^9], 
       FormBox["\"2010/01\"", TraditionalForm]}, {
       NCache[3397593600, 3.3975936*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3402864000, 3.402864*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3413318400, 3.4133184*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3418588800, 3.4185888*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3429216000, 3.429216*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3434486400, 3.4344864*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3444854400, 3.4448544*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3450124800, 3.4501248*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3460752000, 3.460752*^9], 
       FormBox["\"\"", TraditionalForm]}}, {{
       NCache[3392236800, 3.3922368*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3408134400, 3.4081344*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3423859200, 3.4238592*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3439756800, 3.4397568*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3455395200, 3.4553952*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3471292800, 3.4712928*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3397593600, 3.3975936*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3402864000, 3.402864*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3413318400, 3.4133184*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3418588800, 3.4185888*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3429216000, 3.429216*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3434486400, 3.4344864*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3444854400, 3.4448544*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3450124800, 3.4501248*^9], 
       FormBox["\"\"", TraditionalForm]}, {
       NCache[3460752000, 3.460752*^9], 
       FormBox["\"\"", TraditionalForm]}}}},
  GridLines->NCache[{{{3435091200, 
       RGBColor[0, 0, 1]}}, None}, {{{3.4350912*^9, 
       RGBColor[0, 0, 1]}}, None}],
  ImageSize->{673., Automatic},
  PlotLabel->FormBox[
    StyleBox[
    "\"Monthly Revision History of Mathematica\"", Bold, Large, StripOnInput -> 
     False], TraditionalForm],
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Prolog->InsetBox[
    FormBox[
     StyleBox["\"7.0 Release\"", Medium, Bold, StripOnInput -> False], 
     TraditionalForm], 
    NCache[{3435091200, 30}, {3.4350912*^9, 30}]],
  Ticks->None]], "Output",
 CellChangeTimes->{
  3.4649712255030537`*^9, 3.464971285352635*^9, {3.4649716614226847`*^9, 
   3.464971686932159*^9}, {3.464971797472184*^9, 3.4649718103863287`*^9}, {
   3.464971859224122*^9, 3.4649719322985563`*^9}, 3.464972017779971*^9, {
   3.46497209037582*^9, 3.4649720996914988`*^9}, 3.464972136283045*^9, 
   3.4649723955080442`*^9, 3.4649803110352955`*^9, 3.465039517500063*^9, 
   3.4651464676584587`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"users", "=", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.464980382912407*^9, 3.4649803897557983`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"top5", "=", 
  RowBox[{
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Tally", "[", "users", "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"#1", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ">", 
       RowBox[{"#2", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"1", ";;", "5"}], ",", "1"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.464980422424667*^9, 3.464980431971213*^9}, {
  3.4649844929086504`*^9, 3.4649846270883255`*^9}, {3.464984674305026*^9, 
  3.4649846946151876`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Cloudruns\"\>", ",", "\<\"Pleasantville\"\>", 
   ",", "\<\"Drkirkby\"\>", ",", "\<\"JonMcLoone\"\>", 
   ",", "\<\"Tobinpwiiki\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4649804329632697`*^9, {3.464984533352964*^9, 3.4649845408933954`*^9}, {
   3.464984589480174*^9, 3.464984627558352*^9}, {3.4649846858776875`*^9, 
   3.464984695155218*^9}, 3.464986243233468*^9, 3.465039517787849*^9, 
   3.465042714848837*^9, 3.46514646777606*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cds", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Tally", "@", 
      RowBox[{"dates", "[", 
       RowBox[{"[", 
        RowBox[{"Flatten", "@", 
         RowBox[{"Position", "[", 
          RowBox[{"users", ",", 
           RowBox[{"x_", "/;", 
            RowBox[{"x", "\[Equal]", "#"}]}]}], "]"}]}], "]"}], "]"}]}], 
     "&"}], "/@", "top5"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"cds", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "All", ",", "1"}], "]"}], "]"}], "=", 
     RowBox[{"Map", "[", 
      RowBox[{"AbsoluteTime", ",", 
       RowBox[{"cds", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "All", ",", "1"}], "]"}], "]"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "5"}], "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.464984702365631*^9, 3.4649847392867427`*^9}, {
   3.4649847846153355`*^9, 3.464984861990761*^9}, {3.4649849460443897`*^9, 
   3.464984953828803*^9}, 3.4649849933748727`*^9, {3.4649850259633303`*^9, 
   3.464985120983097*^9}, {3.4649851967056303`*^9, 3.464985382579956*^9}, {
   3.4649861757009497`*^9, 3.4649862321418486`*^9}, {3.4649864311981983`*^9, 
   3.464986431837799*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateListPlot", "[", 
  RowBox[{"cds", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "0"}], "}"}]}], ",", 
   RowBox[{"Filling", "\[Rule]", "Bottom"}], ",", 
   RowBox[{"PlotMarkers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "12"}], "}"}]}], ",", 
   RowBox[{"PlotLegend", "\[Rule]", "top5"}], ",", 
   RowBox[{"LegendPosition", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.8", ",", 
      RowBox[{"-", "0.5"}]}], "}"}]}], ",", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Top 5 Contributors of Mathematica \>\"", ",", "Bold", ",", 
      "Large"}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.464985390801171*^9, 3.4649854970061574`*^9}, {
   3.4649857605530205`*^9, 3.464985810644708*^9}, {3.464985843935167*^9, 
   3.464985852468382*^9}, {3.464985892404452*^9, 3.464985904416473*^9}, {
   3.464986448701429*^9, 3.4649865035511255`*^9}, {3.4649865737512484`*^9, 
   3.4649865901780777`*^9}, {3.464986624747738*^9, 3.4649866539353895`*^9}, {
   3.4649867227471104`*^9, 3.464986821635684*^9}, {3.4649868603861523`*^9, 
   3.4649868880138006`*^9}, {3.4649871676598916`*^9, 
   3.4649871817779164`*^9}, {3.464987250870438*^9, 3.464987330867378*^9}, {
   3.464987392674687*^9, 3.4649873937198887`*^9}, {3.465038267024967*^9, 
   3.465038272961445*^9}, 3.465041509357572*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJztVk1IVGEUfUSBzKa3ClcxKkJFi7dqkQufawkkybLVGLhwRBQiMEyZRQgt
ogExMjejpAWmTAs3ps1AUItCp59dRLOYTeBiVoLoovnu7XHPeeBbupoDznj4
7vfe+e755t7bdm/85vAZz/N+Nf7cdwOVpdLfHv23PWx8lL/tRLzF8TC3HfF6
d+Mjf/Y98fKF1Yh7Lr5aW4i477jX/YLiM/X5iKfdejr7hPbX/UcRb3U8/+M+
7ff/jBMvbI3R/iC7yfqWi8TT79b4PPsrxKsTrzi+c4l4mHrK659niQfPR3n9
0wjxytEwx6eGiHvVDOerdzDi1935KrP9vP+gxPu/Mgd/hU/cYO4ffiC/qrvM
Cz9P9F/uhxdyvoOuN+zP9mvOx+8h8qvv4l16XmH5DuudZJ5buU28b4p5+XiA
z3+Zef3KF75vPR9Pyp+sZ6Z3aL34fYOff3Wd8/n4Les9xzz/jPOTHl3l+Id8
3zLXFik//vmXrGdrgePn+PcWdMyx3toY63kwyPvtvsn7invJ+Q1mmIdrt5i3
8H0Fvy+FyVwQ5+ifcPNPAf45gH8C8E8A/gnAPwH4JwD/BOCfxpt/+n7zT59v
/qke80/jzT8B+Kd6zT/VY/7p/l7m4J8A/NPnzzAH/5Sbfxp/UErMN9QbAdQb
AdQbAdQbAdQbPZ/Vm/+CNllPF/sB9UaA9cYhfp+g3qjeSeZQb3T/VHI+od6o
vizrhX6k+qwfCaAfCaAfaXwn3y/oR7pu/Ujfb/1I160fqV7rRxqf4nxBPxLE
7xf0I+Ux/2GeUL25ZH9xnpDX1/j3AfOE6rF5Qs8H84QDzBP6PpsnBDBPCHCe
iJ2nPfSa81FzPmrOR7jenI9OcT76B7381HU=
      
      "], {{{}, {}, {}, {}, {}, {}, {}, {}, 
        {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{134, 1}], 
         LineBox[{135, 2}], LineBox[{136, 3}], LineBox[{137, 4}], 
         LineBox[{138, 5}], LineBox[{139, 6}], LineBox[{140, 7}], 
         LineBox[{141, 8}], LineBox[{142, 9}], LineBox[{143, 10}], 
         LineBox[{144, 11}], LineBox[{145, 12}], LineBox[{146, 13}]}, {}, 
        {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], LineBox[{119, 14}], 
         LineBox[{120, 15}], LineBox[{121, 16}], LineBox[{122, 17}], 
         LineBox[{123, 18}], LineBox[{124, 19}], LineBox[{125, 20}], 
         LineBox[{126, 21}], LineBox[{127, 22}], LineBox[{128, 23}], 
         LineBox[{129, 24}], LineBox[{130, 25}], LineBox[{131, 26}], 
         LineBox[{132, 27}], LineBox[{133, 28}]}, {}, 
        {Hue[0.1421359549995791, 0.6, 0.6], Opacity[0.2], LineBox[{100, 29}], 
         LineBox[{101, 30}], LineBox[{102, 31}], LineBox[{103, 32}], 
         LineBox[{104, 33}], LineBox[{105, 34}], LineBox[{106, 35}], 
         LineBox[{107, 36}], LineBox[{108, 37}], LineBox[{109, 38}], 
         LineBox[{110, 39}], LineBox[{111, 40}], LineBox[{112, 41}], 
         LineBox[{113, 42}], LineBox[{114, 43}], LineBox[{115, 44}], 
         LineBox[{116, 45}], LineBox[{117, 46}], LineBox[{118, 47}]}, {}, 
        {Hue[0.37820393249936934`, 0.6, 0.6], Opacity[0.2], LineBox[{76, 48}],
          LineBox[{77, 49}], LineBox[{78, 50}], LineBox[{79, 51}], 
         LineBox[{80, 52}], LineBox[{81, 53}], LineBox[{82, 54}], 
         LineBox[{83, 55}], LineBox[{84, 56}], LineBox[{85, 57}], 
         LineBox[{86, 58}], LineBox[{87, 59}], LineBox[{88, 60}], 
         LineBox[{89, 61}], LineBox[{90, 62}], LineBox[{91, 63}], 
         LineBox[{92, 64}], LineBox[{93, 65}], LineBox[{94, 66}], 
         LineBox[{95, 67}], LineBox[{96, 68}], LineBox[{97, 69}], 
         LineBox[{98, 70}], LineBox[{99, 71}]}, {}, 
        {Hue[0.6142719099991583, 0.6, 0.6], Opacity[0.2], LineBox[{74, 72}], 
         LineBox[{75, 73}]}}, {
        {Hue[0.67, 0.6, 0.6], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 147], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 148], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 149], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 150], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 151], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 152], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 153], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 154], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 155], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 156], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 157], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 158], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->12], 159]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 160], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 161], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 162], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 163], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 164], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 165], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 166], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 167], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 168], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 169], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 170], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 171], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 172], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 173], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->12], 174]}, 
        {Hue[0.1421359549995791, 0.6, 0.6], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 175], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 176], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 177], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 178], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 179], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 180], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 181], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 182], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 183], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 184], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 185], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 186], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 187], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 188], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 189], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 190], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 191], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 192], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->12], 193]}, 
        {Hue[0.37820393249936934`, 0.6, 0.6], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 194], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 195], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 196], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 197], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 198], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 199], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 200], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 201], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 202], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 203], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 204], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 205], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 206], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 207], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 208], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 209], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 210], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 211], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 212], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 213], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 214], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 215], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 216], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 217]}, 
        {Hue[0.6142719099991583, 0.6, 0.6], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 218], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->12], 219]}, {}}}],
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     AxesOrigin->{3.4*^9, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->True,
     FrameTicks->{{Automatic, Automatic}, {{{
          NCache[3408134400, 3.4081344*^9], 
          FormBox["\"2008\"", TraditionalForm], {0.020601132958329826`, 0}}, {
         
          NCache[3439756800, 3.4397568*^9], 
          FormBox["\"2009\"", TraditionalForm], {0.020601132958329826`, 0}}, {
         
          NCache[3400185600, 3.4001856*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
          NCache[3415996800, 3.4159968*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
          NCache[3423859200, 3.4238592*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
          NCache[3431808000, 3.431808*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
          NCache[3447532800, 3.4475328*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
          NCache[3455395200, 3.4553952*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}}, {{
          NCache[3408134400, 3.4081344*^9], 
          FormBox["\"\"", TraditionalForm], {0.020601132958329826`, 0}}, {
          NCache[3439756800, 3.4397568*^9], 
          FormBox["\"\"", TraditionalForm], {0.020601132958329826`, 0}}, {
          NCache[3400185600, 3.4001856*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
          NCache[3415996800, 3.4159968*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
          NCache[3423859200, 3.4238592*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
          NCache[3431808000, 3.431808*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
          NCache[3447532800, 3.4475328*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}, {
          NCache[3455395200, 3.4553952*^9], 
          FormBox["\"\"", TraditionalForm], {0.012360679774997897`, 0}}}}},
     GridLines->NCache[{{{3408134400, 
          GrayLevel[0.8]}, {3439756800, 
          GrayLevel[0.8]}}, None}, {{{3.4081344*^9, 
          GrayLevel[0.8]}, {3.4397568*^9, 
          GrayLevel[0.8]}}, None}],
     PlotLabel->FormBox[
       StyleBox[
       "\"Top 5 Contributors of Mathematica \"", Bold, Large, StripOnInput -> 
        False], TraditionalForm],
     PlotRange->{All, All},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic},
     Ticks->None], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], 
      RectangleBox[{0.8, -0.5}, {1.2480000000000002`, 0.30000000000000004`}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{
        RectangleBox[{0.8, -0.5}, \
{1.2480000000000002`, 0.30000000000000004`}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[{{}, InsetBox[
                 StyleBox["\<\"\[FilledDownTriangle]\"\>",
                  StripOnInput->False,
                  LineColor->Hue[0.6142719099991583, 0.6, 0.6],
                  FrontFaceColor->Hue[0.6142719099991583, 0.6, 0.6],
                  BackFaceColor->Hue[0.6142719099991583, 0.6, 0.6],
                  GraphicsColor->Hue[0.6142719099991583, 0.6, 0.6],
                  FontSize->12,
                  FontColor->Hue[0.6142719099991583, 0.6, 0.6]], {0.5, 0.5}]},
               
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 0.08}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Tobinpwiiki\"\>", {1.2100000000000002`, 0.58}, {-1, 0},
               Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{{}, InsetBox[
                 StyleBox["\<\"\[FilledUpTriangle]\"\>",
                  StripOnInput->False,
                  LineColor->Hue[0.37820393249936846`, 0.6, 0.6],
                  FrontFaceColor->Hue[0.37820393249936846`, 0.6, 0.6],
                  BackFaceColor->Hue[0.37820393249936846`, 0.6, 0.6],
                  GraphicsColor->Hue[0.37820393249936846`, 0.6, 0.6],
                  FontSize->12,
                  
                  FontColor->Hue[
                   0.37820393249936846`, 0.6, 0.6]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 1.24}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"JonMcLoone\"\>", {1.2100000000000002`, 1.74}, {-1, 0},
               Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{{}, InsetBox[
                 StyleBox["\<\"\[FilledDiamond]\"\>",
                  StripOnInput->False,
                  LineColor->Hue[0.1421359549995791, 0.6, 0.6],
                  FrontFaceColor->Hue[0.1421359549995791, 0.6, 0.6],
                  BackFaceColor->Hue[0.1421359549995791, 0.6, 0.6],
                  GraphicsColor->Hue[0.1421359549995791, 0.6, 0.6],
                  FontSize->12,
                  FontColor->Hue[0.1421359549995791, 0.6, 0.6]], {0.5, 0.5}]},
               
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 2.4}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Drkirkby\"\>", {1.2100000000000002`, 2.9}, {-1, 0},
               Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{{}, InsetBox[
                 StyleBox["\<\"\[FilledSquare]\"\>",
                  StripOnInput->False,
                  LineColor->Hue[0.9060679774997897, 0.6, 0.6],
                  FrontFaceColor->Hue[0.9060679774997897, 0.6, 0.6],
                  BackFaceColor->Hue[0.9060679774997897, 0.6, 0.6],
                  GraphicsColor->Hue[0.9060679774997897, 0.6, 0.6],
                  FontSize->12,
                  FontColor->Hue[0.9060679774997897, 0.6, 0.6]], {0.5, 0.5}]},
               
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 3.56}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Pleasantville\"\>", \
{1.2100000000000002`, 4.0600000000000005`}, {-1, 0}, Automatic, {1, 0}]}, {
             InsetBox[
              GraphicsBox[{{}, InsetBox[
                 StyleBox["\<\"\[FilledCircle]\"\>",
                  StripOnInput->False,
                  LineColor->Hue[0.67, 0.6, 0.6],
                  FrontFaceColor->Hue[0.67, 0.6, 0.6],
                  BackFaceColor->Hue[0.67, 0.6, 0.6],
                  GraphicsColor->Hue[0.67, 0.6, 0.6],
                  FontSize->12,
                  FontColor->Hue[0.67, 0.6, 0.6]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 4.72}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Cloudruns\"\>", {1.2100000000000002`, 5.22}, {-1, 0},
               Automatic, {1, 0}]}}, {}},
          AspectRatio->1.7857142857142856`,
          FormatType->TraditionalForm,
          
          PlotRange->{{-0.1, 3.26}, {-0.1, 
           5.8999999999999995`}}], {0.8, -0.5}, {
         Left, Bottom}, {0.44800000000000006`, 0.8}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->{766., Automatic},
  PlotRange->All]], "Output",
 CellChangeTimes->{
  3.4649857708334384`*^9, 3.464985812407511*^9, {3.464985846680772*^9, 
   3.4649858531079826`*^9}, {3.4649858945416555`*^9, 3.4649859053836746`*^9}, 
   3.4649864194201775`*^9, {3.4649864513534336`*^9, 3.4649865041907263`*^9}, 
   3.464986590942479*^9, {3.464986633998554*^9, 3.4649866551521916`*^9}, 
   3.4649867346031313`*^9, 3.4649867702647934`*^9, {3.4649868049592547`*^9, 
   3.464986822431285*^9}, {3.46498686520656*^9, 3.464986889293003*^9}, {
   3.4649872729444766`*^9, 3.46498733174098*^9}, 3.4649873946870904`*^9, 
   3.465039518847102*^9, 3.46504151203817*^9, 3.465146469394597*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"userurl", "[", "usr_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"url", ",", "uxml", ",", "udata", ",", "unicase"}], "}"}], ",", 
     
     RowBox[{
      RowBox[{"url", "=", 
       RowBox[{
       "\"\<http://en.wikipedia.org/w/api.php?action=query&list=usercontribs&\
uclimit=500&format=xml&ucuser=\>\"", "<>", "usr"}]}], ";", 
      RowBox[{"uxml", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"url", ",", "\"\<XML\>\""}], "]"}]}], ";", 
      RowBox[{"udata", "=", 
       RowBox[{"Cases", "[", 
        RowBox[{"uxml", ",", 
         RowBox[{
          RowBox[{"XMLElement", "[", 
           RowBox[{"\"\<item\>\"", ",", "w_", ",", "_"}], "]"}], 
          "\[RuleDelayed]", "w"}], ",", "Infinity"}], "]"}]}], ";", 
      RowBox[{"unicase", "=", 
       RowBox[{"DeleteCases", "[", 
        RowBox[{
         RowBox[{"Union", "[", 
          RowBox[{"\"\<title\>\"", " ", "/.", " ", "udata"}], " ", "]"}], ",", 
         RowBox[{"x_", "/;", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"StringMatchQ", "[", 
             RowBox[{"x", ",", 
              RowBox[{"\"\<User talk:\>\"", "~~", "__"}]}], "]"}], " ", "||", 
            " ", 
            RowBox[{"StringMatchQ", "[", 
             RowBox[{"x", ",", 
              RowBox[{"\"\<Talk:\>\"", "~~", "__"}]}], "]"}], " ", "||", " ", 
            
            RowBox[{"StringMatchQ", "[", 
             RowBox[{"x", ",", 
              RowBox[{"\"\<User:\>\"", "~~", "__"}]}], "]"}]}], ")"}]}]}], 
        "]"}]}], ";", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"usr", "\[Rule]", "#"}], "&"}], ",", "unicase"}], "]"}]}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.465038107427431*^9, 3.465038210679446*^9}, 
   3.465038294829321*^9, {3.465038532942088*^9, 3.4650385361242943`*^9}, {
   3.465039380387823*^9, 3.4650394509113617`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"userurl", "[", "#", "]"}], "&"}], "/@", "top5"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.465038213563999*^9, 3.465038229085397*^9}, {
  3.465038539830567*^9, 3.465038545618758*^9}, {3.4650394632316732`*^9, 
  3.465039497230201*^9}, {3.465039535198422*^9, 3.465039538432098*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"gp", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"g", ",", "1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.465039543907102*^9, 3.465039563863982*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphPlot", "[", 
  RowBox[{"gp", ",", 
   RowBox[{"VertexRenderingFunction", "\[Rule]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"top5", ",", "#2"}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#2", ",", "Bold", ",", "14"}], "]"}], ",", "#1", ",", 
          RowBox[{"Background", "\[Rule]", "LightYellow"}]}], "]"}], ",", 
        RowBox[{"Blue", ";", 
         RowBox[{"Point", "[", "#1", "]"}]}]}], "]"}], "&"}], ")"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.465039566323645*^9, 3.465039570327173*^9}, {
  3.465040442954126*^9, 3.4650405289488163`*^9}, {3.4650406218733597`*^9, 
  3.465040697352664*^9}, {3.465040827024984*^9, 3.46504083982812*^9}, {
  3.465040910236739*^9, 3.465041090221511*^9}, {3.465041126772134*^9, 
  3.465041143325931*^9}, {3.465042690336502*^9, 3.465042699212243*^9}}],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsGroupBox[{GraphicsComplexBox[CompressedData["
1:eJw9l3k4FF7UxwdjjJmxzW5ShFAJpSIt5yREKEmIkoj6+aUkSyFaSIUoLags
ESqhkrTZky2hSMi+lN9QGvv6ep/nfd77z/3nnnuf+/ne7zn3LHU6YekiTCAQ
JIQIhP+dZb4cflmbI4ZHs7bl1erz4WvBTxZ5XBSxUGzjppwkCAzQIe9WICKx
SF9KTKIOdCU+9kaxxLFw45lx0x350LXKOvTtWWl0WppCat43Dj/11pdsniDh
7jxzhToHAoa27r/4bhkRM2yEKDMnfsDjqepMY0kSSl+NjG/o/AiTnsu6aI5i
iCbaT/82VcJfl72yPR9ISPu4WqcIvoN6v0fYjGAO7uksilTQn4ertbEaz7qI
aHFl9T69iCIIGTrgfHCXNPr8YyNwSJ2A/Z3bE92TSfjSPPMYfxEBhzfcUIxX
I+M5wwP6saX3gd793u+iviieq8p0HzvcCNbRHcGNIxTcbF0a0zkxAeHLySST
K2QsV3G4qb62HqTblBympMWQ8H9D6LFdifUxFmqkaYk1ZAnjBf/4JocBFraQ
+tnxJiTM3eIKbcksrG4fuyZ7ZhyiLpzt0NjLQU5d5OCqawQ0yORbSJ5n4h/N
Vzb2vFGorJ/dzVvCQHH3+VXljaI4XKFt/t9NBmpVuWWtdp0E4xPHDUZtuViq
6hBgGkjCAbNS0WERLup+m7iyRl4YP4nUF7swGNh267FpfakYkgvTStVmZPDV
tsvJCWeE0fHlkLO8JBcP+qwitj4QQ8uCHqdOPhMnVDvUqmxHoPoXJ6S8lI3x
03dyM7PEsfmTlDD/EBff2pIFIhEiWJqpe031CAMJulUR9dvmYER5qX1bKQsX
32V0UbRmoGZ+ipuWw8WvBVOdLj+FMLBob48/i4e9pVWdxYuJqKF6pIrzgYV5
yZc0phRGobHeVPKRkSwKJQcqDU8ScU+bWkKNGwPnE4jP1M3Hobpxgp/vJYvr
0g1yx36LYqmhYpLMcVkU5kYTbjaJoUGtkO+DQRn88D2tOFVLCAvOWznE/mJh
/DOL8PNJFEwQvnYaHsqijH3u47v6BDxQ6RhcO8vEeMaeM97dJNT+7n+wLJCD
rv2RUrHaVFyRxVDvHmBjCz07N8dlBoZuhCa8zKejsE/X8+53JDwZWp+wq5CO
MQ9/PJn4RcZX6ll+mt4sXCQms+uoCRXvU5ul0z9w0a5Q6Z9Lt0SRRlhpJy9g
47m5yPdL6oXQ9+2MQog3B42fTe9SM50Dp5YlSwvGZLG268726EEilorrzdct
l0UMO2gT5zkJCkeDNCgqHGwKm/r27dUYUJT6pW2Hubi9u338919h5KWb0a4U
cNE+MXJdWeUMbHw2SLr/goG9TQY62t7i6Oamei7Bg4HqaSJlDZ8IuNrFJJeV
T0JuNGnT9TXCuDG/IuRzHx3L+FKPVORE8MVcJveIKQd3VtV+aPIbAfMnAU8U
hbgo5cEr0+QSMIS1hJlF5qKXXMXn9FOj8DxH3tFmMxd/Xovq2FYsjiTVP1nP
3ZmouHYyuIZDxrgiS8GBIQ4qCBj4pn+BZ2hbpXYqA0XGguJyzInI0LK1/PSK
jV97RAzMty34o99LIU6JjS9O7deeshXAGsqijZubZdAjxKLx82URlO9YJ6xJ
YKHKlmnXWw1UFBO14vPSOVhsWeRsLTEGTHLlzx0fZfHrtUgqr5+EaXebziYF
MPH1M239XXqiODVq4encwEQDWu+j7ivimPe6u6CukIvGk48NLFaIIdHm7GhM
Axt7z9v8WRk+CTrhEi/umnGwfr+26VEbCqbk78zgyDNwJt7qcOTkNGhI+xv5
5sni3raaxbt8hXDJNk52hQEPK2i+tzWtRXCaz9DL4TPw3+XvH7ZcGgW5+5W+
4LDAqy88iNpARNeBpe6VnhxUNr4vy2qbgjhF9dA33bKotVUrVyN3DmhBUt4D
yxmocyQlReejOH4wM7d7GcLGhi25Jh0byRhoyV16K4aLR8vDksZ+zMEmq1/F
1V84mKV5au9ROxLmL91vty+Og3bi141tDSdgrUjI1rhWGXxiVmjyt4qIo6mK
b1yyWRiS+88VtqM47vjnlXxTMxtX3Fx62KRGFPVLKTdVFZjo9DXkd0H4LGj/
oS+7U89Ez9eCrVs6KJgpuSf/muKC3uO0wIjd47D1zBte1HIWZgutbyWsnIN9
RlpBvZVM3BkqtjSGNwE+/HK3FRQuhngFiwg/peBptTEJ/RIGyn2vG424Ioyk
CPEHfLYsfjAyv9PCIKL9XMoSs0NMNPbUsuu/NQkDdU4/72su+FctMTNniTg2
Nm+V/7mQbwa6PaefXZoA7vyJiNt9TEzlh3oECKZghc5MTLYQDwuON3kf+imK
GYm7zCSd2HjssOyDWfdR2BnkUsZM5iDFt5H1MYCMGaM92eTnHHxyKi3/3S1x
9Ktopp/ZLItWl43TqPUkvFTA9dhnxcUPVu4lUzwhbNyjNHmWx8F7CQS/y9Vk
LO51sONk0rEvKEaBpSKMZlsyw6KX8dA55Brv02ECbjbNsDgDPFz7xDV4U7AQ
Uv4bvxyaRkfRW8kPs5VEcbUoVbc9mo6FIy5BjqbTYG9mduG1Kh2Hsw07fheL
YpSXzLTxWxZOBKbb+p+dhLhSrgfxAAcDs3RVHEzEcEPni5Szhmz0EdIrcxWI
4+uj6v1WuSysXR20v8CMgHezr1zLlpPFt+GNHV9Lyejhajmdms7A4H20SF4K
BQ16ClgVTlz0bTDNfisxDv2/WtYLadFRhT9m8HihDhcfjF9+biHfpBTNGyVX
TsFAdd63e80snDG0b+obpGKKmHN2w2suapvXfntVII4BaedV3BPYqDgYlq3X
T0FVnQaL5oX4PCXdkNtsMq5Jqkss2UlHPTVXNXdTApb1JCvPa3KxTX5e8hdv
GiyKamuYmWxkZAdHZfvPQ719j/jiEQa6278JGZCbBt3+pLvCFxnoM6ks5eVJ
xvDsyVVKNly01h8b1HxFxnbNxIc0Yxb2fJnjDG6iYNfT/eQLbSy0dfLhReiT
8bVnupvtgj/uF174PU8TxSrloIPGC362Sx5cp948A/FfVwunnGejRqP9lkBJ
MdxMK5Me2CqOaV7qt78xSai3TNRFypuOzwwTNex7xNBOTTlCbqHeHdt8R9/x
hDBuMLL1C/zERibTZMRpVABGqXeniEosVO+uWRJhSMaPaXs82hNk8V1YsnFG
tAgGl8r1pOnTMU6JmES0noNl0kJb6t/Q8dzyszqFUwQ0aa2rBlUWlnGct74/
PQZWBVUOHv+yUO3u4YGP5wUQHu4Yty+Mgdb9HlGfR0loEyM4OWLLxuI7cW76
JVTEW1m0FcuZeOx+nYHGbRI+qI3jLt7NxprIpl4RuVk4/eKlnlewLN5bkdHu
HiqMgb8fHdJVk8UXFE6a5SohnO182FYwycbKUx+eXnKn4l+aViRBi40d/ALn
h5PjsC8wVud8LR1r/Dq2NefNwcU1x1PJhkz8q2Xfd2Y3BS0vEXVGpTi49twv
G/EfIsjR6ty+KIeDF13oE/K+IjjxIzTtlQkTlQ8qtGx1oGL6r0K9jdayGLem
P5PSMQtGxWvyxqgL/wX6sTt8aQIu2T0TVcTkot8eozv6QpOgnl5lVFBCQjWW
Y+BUuRBGWmo0GM3REXRkGIeDJmH+eczwzQW93A8OZhLGRJAd7p46c4uFNisl
fFsJonh9ida0vZMsvnlDPL5+/TQkLJpcQtrIxCufPnzKCCBgYqPVytb2cYgo
md5lUz0MI9P5noLQQTAbyNk/vagVcGj2Cy39Nzhc/ydQlToA0oeXJVVH/YIc
H+kgd6dmkOvfEFa6hQ8p298cVRnsgo4Cw4DZ4j9w6lAg2W47AY/fTakMV/kL
PWYXC2l+BFyrMqRsHz0AKXesNbbf6AejsF0Hu38IoNWHRJa36IRLys3kPYuH
Ya2Hjvboiz9QLt9bs2O1AHQ/lbW17m2CN95DCp9thkF9s5LKLUYdHFO8odf6
cBL4KT92VOt1wc6wD0tT2WPQsa/eKoL+GaLchs0HE7rgaoW9+5EjP+EafV31
0Y4/UJlQNlji3AHqNZUM0a18uG3SX/1JZRiaSN5XvcYHwKkJMvRPjcDx2RTq
3XABCAKNrGQyCMhrm8pZO/IXPKXuzJt9XuBxlDvYXtwLCjq02o0besGBMqle
eXkcLJbKmV5NaYAl/43BAHkMAtZAfA2xDbId4kpK/Icgz1fygrXqF/DSyCI4
5feA8e6ugcXhw0DYI2awy3YA7L5mpmyIHYQhOitpp8Rf6Bs0jTyysK7skRX3
9csx+FN+fOiURx+kkK+nHWZ3w+NbEyOPvw1BTHC5f8K/k0BMondv7PsO7A+W
ZofU/0DzViOprhMjQDv3e1OYoA8ep6Q/U7fshCg7+rrZ7F5IWWzzfKXMf/Dz
tJauhnA/pFew/TMVBcCn3tVMvCkA3DYfbVpTDTtrTl7stP4Dxi9/uI0lkLHQ
5OVJ98QeGMi82bTBkIoWX1rfb6r8BWuEV53rHydi9rm+txxmFdx7cCN8kxYJ
DV55+RWN9cA2k4kLQz8kUEs2QGDjJYDa34tPVHVJoqNLYHuydD44QpKY2w0K
xnjm3qNsb4TU4LeaRrEL5z3q3JHlVAEXiesxI1Icm6gSxJqwDjjhECvw813o
mxTPpn8prYDaZXL0c+8kkNCTbX+16gKIBnY435giY4BdDV/KeRCqTpw/8YIl
idIhet/cTb7DTUOJ+c1WYqgQfWFF3eXnoDyeQSqMJyGuOpM1/Og9uNo4nazJ
pKF0zZoQnQWdpNUvv7nvLYXnzPiei7IqQTtG7cVFDVEsLJJYVw6JcNu9z0Kv
UQw71rklWmz4BZ9+NF1byZPGDn8l54tEPuxw37PZ5ywJlU15Yofce2D2+lbF
tXliaCFlbysQb4Cuy6oW0WoUfD519XqL/zCcrraKZyzwvRdrQRB52AcXYt5U
t32XxHflieZJ5/vB2cbn3plGcSScTBqLba6Atzlms+kL92lSyBNvaRkFyc/f
92ln0dAgIUsxVqcTgvmC8EInEhJWNFweHOmEAhtvjTx1KSSQdt8Uj2sEXqn1
/L+XiRhD2hToeIoPXQ2H1cvHqNihwl4ftfwzlHlQ7RXCafhnsPDRo5QqEE6s
bjsPVLRtO/BwsKcZLDg6zuSdUgv8zE8WmH6HPusbKd7LF97HV4uwJzK/4XtC
pEP2kBROTF7P1XnbDuP3422rlGkYxTvkdj+6CQIiW46Yi0jgT7tYwo6ULiiK
D3/q0k9D49ox1Zn8JqBd0W7a8V4UH/RRFpdThsFi2XKXv3MS6BFw8bFrYQn0
fOuWt/uXjISMVzXciXY4ftjyz51oceSq9W/2q/sLMYqW0941NLz3ekB+597R
hf2fB39hUpFAdn3nt/Yx1Ab1fjR6TMWoBwxzRmYPsAbqLkltFMU8f42zB8J/
gq2dWon3NxoeldtxNqTsC9TfTJE0s5VEra+CqqfKPaAm4Jo4CkujSoya/w6h
URDZ2k5NHZHAwv49+d0RP+DeikdSvNWS/993x/Vc91HUomA4dbv6lM9/YLR+
ZJeXrhQmVrSkWU0Lo5+wpP89nIX/Absqf3s=
      "], 
      {RGBColor[0.5, 0., 0.], LineBox[CompressedData["
1:eJw91XeYD3QcwPHfcfe7cyuHKImOzLIShTiVjOxLFLKVeSKkZUahsvfeWZlx
R2bZo2GUvUcoIhokv3u8Hn+8n9fzfZ7PX5/n8zzfxJadk1MyBAKBXGGBQLoh
7puR4YxgkJGMYiZGM4axjGM8H2BmJjALs4bKFupBZmcOPsSHmZOPMBcfZW7m
4WNMZF7m4+PMzwIsyEIszCJ8gk8ygkUZZDEWZwmW5FMsxadZmmX4DJ9lWZZj
eT7HCqzIJFbi83yBL7IyX2IVVmU1VufLrMGarMXarMO6rMdkvsL6fJUN2JCv
8XU2YmM24RtsymaMY3O2YEu2Ymu24Zt8i/Fsy3Zszw7syE5MYWe+zS7synfY
jd3Zg++yJ9/j+/yAH/Ij9mJv9mFf9mN/fswBHMhPmMBPOYiDOYSf8XN+waEc
xuEcwZEcxdEcw7Ecx/GcwImcxMmcwqmcxumcwZmcxdmcw7n8kvM4nwu4kIv4
FRdzCZdyWajloVbwa67kKgaZyjSu5hp+w7Vcx/XcwCRu5CbG81t+x81M4BZu
5TZu5w7u5C7u5h5+zx/4I3/iXi7iPu4PdSDUz/yFBxlkKtN4iId5hEd5jMd5
gid5iqcZwySe4Vme43le4K+8yEu8zN/4O68wnlf5B6/xOv/kDd7kX/yb/3Az
/+Ut3uZ/vMP/mf65pxvGDMzIcI40H+EdZCSjmInRjGEs0+8gLuzeHu4Cndzi
Bg==
        "]]}], {InsetBox[
       StyleBox["\<\"Cloudruns\"\>",
        StripOnInput->False,
        FontSize->14,
        FontWeight->Bold], {2.9632887050050916`, 0.8831561659730882},
       Background->RGBColor[1, 1, 0.85]], 
      PointBox[{2.745620890775152, 0.034578211026996986`}], 
      PointBox[{2.5157795564587664`, 0.26642014017399185`}], 
      PointBox[{3.1355302764292468`, 0.11832117835841327`}], 
      PointBox[{4.122785677561724, 1.45943644136613}], 
      PointBox[{2.8712115527081217`, 2.046297314044786}], 
      PointBox[{2.5184259665216504`, 0.4599599931437932}], 
      PointBox[{2.756974568968265, 0.1865794204923792}], 
      PointBox[{2.9218995731047213`, 0.20974572617576293`}], 
      PointBox[{2.8466264704882116`, 0.3945162810333478}], 
      PointBox[{1.934567017261041, 1.9536443319407004`}], 
      PointBox[{2.6106895104113095`, 0.13712243418837966`}], 
      PointBox[{4.077512314422738, 1.540617895653296}], 
      PointBox[{2.8297989389358644`, 2.013634537762949}], 
      PointBox[{3.019832868659471, 0.02907027690463826}], 
      PointBox[{2.65747733966817, 0.34991226874551984`}], 
      PointBox[{3.369549787620069, 1.5607620208223942`}], 
      PointBox[{3.067033812641233, 0.28443445672074263`}], 
      PointBox[{2.883290038556659, 0.}], InsetBox[
       StyleBox["\<\"Pleasantville\"\>",
        StripOnInput->False,
        FontSize->14,
        FontWeight->Bold], {5.3557997249686204`, 2.3358555375788432`},
       Background->RGBColor[1, 1, 0.85]], 
      PointBox[{5.4788774344186795`, 2.7859460629705217`}], 
      PointBox[{5.410027495017564, 1.467065390066625}], 
      PointBox[{5.83318663373997, 2.0694235381616966`}], 
      PointBox[{5.126031174131246, 1.3189347673787744`}], 
      PointBox[{4.779397278897429, 2.729873999936562}], 
      PointBox[{4.895428854261341, 1.587449727271359}], 
      PointBox[{6.086873120537184, 2.811667415259736}], 
      PointBox[{6.003849115473011, 2.2652331141534}], 
      PointBox[{4.768942874973573, 2.9711042319711245`}], 
      PointBox[{4.496249268282561, 2.3093865180930737`}], 
      PointBox[{6.013791619724856, 2.9545212103246707`}], 
      PointBox[{5.2313285305134105`, 1.2716781231597434`}], 
      PointBox[{5.692171172699499, 3.210782457841062}], 
      PointBox[{6.09562686177693, 2.4438551890299016`}], 
      PointBox[{4.850736829957615, 1.8915582217045994`}], 
      PointBox[{5.442254470727892, 1.761729128944075}], 
      PointBox[{6.1764186766813065`, 2.2384755758903143`}], 
      PointBox[{6.52098042272007, 2.514531864195862}], 
      PointBox[{5.442473581477129, 1.3205510919017183`}], 
      PointBox[{6.3190042718676604`, 2.6220419667264427`}], 
      PointBox[{4.854303824300206, 1.456341449238607}], 
      PointBox[{6.36400957363885, 2.742169784517524}], 
      PointBox[{6.357489125935391, 2.9807510418786487`}], 
      PointBox[{4.482065066800775, 2.14875557017078}], 
      PointBox[{5.478124116809737, 3.3288603746534156`}], 
      PointBox[{6.4113749348331615`, 2.0325234734440376`}], 
      PointBox[{5.247865742118475, 2.8610639074781394`}], 
      PointBox[{5.873803607877835, 3.400194284037684}], 
      PointBox[{5.729382218076163, 1.7748305450669963`}], 
      PointBox[{4.68623971238115, 2.8422311759338763`}], 
      PointBox[{4.687803742623019, 3.114243834210992}], 
      PointBox[{5.364438931409658, 3.4108434845992526`}], 
      PointBox[{6.193023932751115, 2.6980102743182615`}], 
      PointBox[{5.737424286722682, 2.2275976953094982`}], 
      PointBox[{5.8647656587844414`, 1.8933489918081978`}], 
      PointBox[{6.4909634757121655`, 2.61600356991071}], 
      PointBox[{6.290840137402885, 1.59047922258533}], 
      PointBox[{5.787148214842119, 1.4198835789363695`}], 
      PointBox[{6.235687507731891, 2.3686217656326423`}], 
      PointBox[{6.187046234301329, 1.7995054332950733`}], 
      PointBox[{4.9254036982131835`, 3.182226592815925}], 
      PointBox[{4.859983446508162, 2.100505396830064}], 
      PointBox[{2.8428148499630415`, 2.2746910752779392`}], 
      PointBox[{4.725401010931416, 2.3887456138596432`}], 
      PointBox[{5.823635469132273, 1.2799918868228874`}], 
      PointBox[{6.001108817562295, 2.0118098713701396`}], 
      PointBox[{6.008480371795831, 1.3407371632218004`}], 
      PointBox[{6.059903623519107, 3.2198560279956503`}], 
      PointBox[{5.107126950295202, 3.0116243732977788`}], 
      PointBox[{5.982780267644921, 1.806574106506737}], 
      PointBox[{4.912306947548116, 2.537942130117473}], 
      PointBox[{5.679494177467876, 1.4539311081737667`}], 
      PointBox[{5.534767634520804, 1.2092229849142597`}], 
      PointBox[{4.4631242022756386`, 2.4418026679347165`}], 
      PointBox[{5.250179323709772, 3.479288868467637}], 
      PointBox[{5.914165203693535, 1.3782562157331744`}], 
      PointBox[{6.4446216939268375`, 2.862842645948925}], 
      PointBox[{5.121709791513161, 2.6534714862848117`}], 
      PointBox[{5.208387170974214, 3.192328765203941}], 
      PointBox[{6.18830013110567, 2.8956609120060968`}], 
      PointBox[{5.70859130456461, 1.5967215908386774`}], 
      PointBox[{5.824812696172606, 3.292679393296205}], 
      PointBox[{4.780363743120379, 1.748427764812674}], 
      PointBox[{6.430142499219114, 2.183256371379495}], 
      PointBox[{6.567175628108798, 2.417082953937641}], 
      PointBox[{4.98115626093499, 1.3454243158508585`}], 
      PointBox[{6.0920389859595865`, 2.604025837409484}], 
      PointBox[{5.862100320048375, 1.6792193413316534`}], 
      PointBox[{6.472391235417172, 1.9194781414735864`}], 
      PointBox[{4.790933445998018, 3.222274099604785}], 
      PointBox[{5.630574618309031, 3.029236389040174}], 
      PointBox[{6.149006383046638, 1.929190283812682}], 
      PointBox[{5.956835790148997, 2.7941443134095247`}], 
      PointBox[{5.900731479523925, 1.5169298967963045`}], 
      PointBox[{4.465432189696731, 2.599583221608176}], 
      PointBox[{5.422263058056832, 3.171917985476116}], 
      PointBox[{5.713715072221314, 2.7257259199855257`}], 
      PointBox[{5.0314009791919165`, 1.8468627315862922`}], 
      PointBox[{5.205654696732426, 3.3594937469962867`}], 
      PointBox[{5.033747648066919, 1.4574103282788617`}], 
      PointBox[{5.290588777190636, 1.885498867224765}], 
      PointBox[{5.198141085931263, 1.5064927377902282`}], 
      PointBox[{6.00992743350354, 3.3344764971539598`}], 
      PointBox[{4.940681665562913, 2.317165298906856}], 
      PointBox[{6.272387058098735, 2.5096961803872966`}], 
      PointBox[{5.095016936130913, 1.5990975878732048`}], 
      PointBox[{5.04650080779218, 3.1399930613161606`}], 
      PointBox[{6.1766667255348775`, 1.5328845808237426`}], 
      PointBox[{5.225183687172624, 1.6844448467007083`}], 
      PointBox[{6.501650228876125, 2.7384671408343304`}], 
      PointBox[{5.595757667884907, 1.3393532115935853`}], 
      PointBox[{5.909258937783148, 3.060926600081875}], 
      PointBox[{5.923861278509701, 3.1981139082767718`}], 
      PointBox[{6.310032171825123, 2.852561289692895}], 
      PointBox[{6.082372428427226, 2.1381736057033742`}], 
      PointBox[{5.775871174603671, 3.099869683403041}], 
      PointBox[{4.670010959665378, 2.2685949846781908`}], 
      PointBox[{6.5366956544017505`, 2.0492193293327303`}], 
      PointBox[{6.561986217990861, 2.189568552382662}], 
      PointBox[{4.663602962619516, 2.6424267712160394`}], 
      PointBox[{4.644406200096726, 1.7059025742048988`}], 
      PointBox[{4.538793598086239, 2.720184089781576}], 
      PointBox[{5.432895586910618, 1.5931352103434033`}], 
      PointBox[{5.840837241660802, 2.9108241067933127`}], 
      PointBox[{5.56786210391902, 3.2438483702136933`}], 
      PointBox[{5.4280582543234965`, 2.0374743677441316`}], 
      PointBox[{6.2780172606982445`, 3.096109158084429}], 
      PointBox[{4.914699484733873, 3.330128781856901}], 
      PointBox[{6.0964702032443405`, 1.4408528219767882`}], 
      PointBox[{4.546879632160631, 2.846516169343448}], 
      PointBox[{6.187012338916192, 1.6744721196556407`}], 
      PointBox[{5.463488932279896, 3.4911629584173607`}], 
      PointBox[{6.181479221386244, 3.2186123714870063`}], 
      PointBox[{5.655689813292948, 3.3629049103452795`}], 
      PointBox[{6.187356246007574, 3.0110292823560165`}], 
      PointBox[{4.576918137354641, 2.0368292957473644`}], 
      PointBox[{6.046871731284403, 1.6940699182323367`}], 
      PointBox[{5.670001250735666, 1.967697681927352}], 
      PointBox[{4.988392023623378, 1.694559595465502}], 
      PointBox[{4.877939635998523, 3.0558854277762135`}], 
      PointBox[{6.0850951369904, 3.0894468870904275`}], 
      PointBox[{5.320360744382895, 3.2797490954057924`}], 
      PointBox[{5.467292910248462, 3.0324956958177545`}], 
      PointBox[{5.9007279076874335`, 2.6313475333955254`}], 
      PointBox[{6.429963581214177, 1.803264818818397}], 
      PointBox[{5.626602205554404, 2.8820767280365294`}], 
      PointBox[{3.1571847258033174`, 2.7601768238369746`}], 
      PointBox[{4.614316538275768, 2.9865020411168293`}], 
      PointBox[{6.5206167271918165`, 2.3043828203587307`}], 
      PointBox[{5.700677787435375, 1.2474088232422718`}], 
      PointBox[{5.284198680639355, 3.03396057194586}], 
      PointBox[{6.406125788789672, 2.447105948916457}], 
      PointBox[{4.565093578582609, 1.896000508279235}], 
      PointBox[{4.682442635359654, 2.1224369368621296`}], 
      PointBox[{5.288329315480106, 1.4044773630316612`}], 
      PointBox[{5.35492084616256, 1.2191847949959058`}], 
      PointBox[{4.886083995955357, 2.870024803586527}], 
      PointBox[{5.586869984143127, 3.4703415230205517`}], 
      PointBox[{5.040199468819367, 2.8233304382771873`}], 
      PointBox[{5.579212555359989, 1.8193396547658156`}], 
      PointBox[{6.379349629726555, 2.3161275362411526`}], 
      PointBox[{6.28927757835106, 2.1471303037554548`}], 
      PointBox[{5.743895987391167, 3.4284795356638584`}], 
      PointBox[{5.546877133662962, 1.4984487434838272`}], 
      PointBox[{4.7036179244456315`, 1.9201300288620362`}], 
      PointBox[{5.067415810085211, 3.2897832867221206`}], 
      PointBox[{5.765583858157315, 2.4829279773839747`}], 
      PointBox[{5.925885317916275, 2.4331664448370147`}], 
      PointBox[{5.071989648502033, 3.4210240477804224`}], 
      PointBox[{6.334210317635019, 1.8671976883080448`}], 
      PointBox[{6.261683347795559, 2.0082637624602744`}], 
      PointBox[{6.020269647026252, 1.562807646672097}], 
      PointBox[{2.8455796748067055`, 2.2231340287277312`}], 
      PointBox[{4.748317080452252, 1.5936012978376792`}], 
      PointBox[{4.614825987763424, 2.4951184908094803`}], 
      PointBox[{5.396471596180183, 2.6254205037015867`}], 
      PointBox[{6.346054005443549, 1.7007355020138406`}], 
      PointBox[{5.057640537218417, 2.0608764720906874`}], InsetBox[
       StyleBox["\<\"Drkirkby\"\>",
        StripOnInput->False,
        FontSize->14,
        FontWeight->Bold], {1.492153329146653, 1.1123879551271074`},
       Background->RGBColor[1, 1, 0.85]], 
      PointBox[{0.9228455773480833, 0.4392078786219471}], 
      PointBox[{0.9892639294116137, 0.8138616055480659}], 
      PointBox[{0.7989256999381968, 0.4122575512754836}], 
      PointBox[{0.8826620787869817, 0.5914489789449715}], 
      PointBox[{1.0476050238030368`, 2.0348396934097592`}], 
      PointBox[{1.1344116130582864`, 2.0595946350164116`}], 
      PointBox[{0.8304877969068856, 0.7366062073749515}], 
      PointBox[{1.2416719172549207`, 0.5410304219000994}], 
      PointBox[{1.0696592660699777`, 1.043935012879058}], 
      PointBox[{1.1995342332684107`, 0.38024064784550005`}], 
      PointBox[{1.0839377676378334`, 0.26682022785549253`}], 
      PointBox[{1.602993229667983, 0.5696774923536885}], 
      PointBox[{1.3805295294957491`, 0.24275366441425117`}], 
      PointBox[{0.5820223352742051, 0.7626225601109564}], 
      PointBox[{1.0547874428604334`, 0.5121783870754311}], 
      PointBox[{0.882936991364152, 1.0719736103097595`}], 
      PointBox[{0.8427069381943637, 1.2781397560588847`}], 
      PointBox[{1.2218275503981562`, 2.0840174278272285`}], 
      PointBox[{1.1846205777673107`, 0.8378052703851451}], 
      PointBox[{0.6800384169357603, 0.6632365287239033}], 
      PointBox[{1.4708959347487034`, 0.3381677373404459}], 
      PointBox[{1.3771765230764639`, 0.4690434022311718}], 
      PointBox[{0.9526079960223424, 0.29927599621612044`}], 
      PointBox[{0.6482400906911168, 1.0967082190664588`}], 
      PointBox[{0.8232799843486589, 0.9249542442763741}], 
      PointBox[{1.128248814800084, 0.6482427405130096}], 
      PointBox[{1.4193659735125137`, 0.7012271553888052}], 
      PointBox[{0.5964835427078197, 0.9638266357985021}], 
      PointBox[{1.5887751422199354`, 0.4046773641116632}], 
      PointBox[{1.0108349782352142`, 1.2773151966722396`}], 
      PointBox[{0.7172294798037924, 0.5412810773751933}], 
      PointBox[{0.6778551136547595, 0.84584603149499}], 
      PointBox[{0.719016179795088, 1.1959671791233664`}], 
      PointBox[{1.2237855777354936`, 0.22504563070699568`}], InsetBox[
       StyleBox["\<\"JonMcLoone\"\>",
        StripOnInput->False,
        FontSize->14,
        FontWeight->Bold], {1.021211160140314, 3.078106722727771},
       Background->RGBColor[1, 1, 0.85]], 
      PointBox[{0.6445834370481904, 3.4088017387747316`}], 
      PointBox[{0.8059371670011419, 2.621047021268418}], 
      PointBox[{0.21155068087410234`, 2.773552988266898}], 
      PointBox[{0.6551215545384612, 3.733365081026166}], 
      PointBox[{1.215904189216939, 3.860739582158182}], 
      PointBox[{0.11744140821828841`, 3.321491298302064}], 
      PointBox[{0.3480860262296033, 3.0748409012890816`}], 
      PointBox[{0.1983241191513354, 3.1951527611241217`}], 
      PointBox[{0.5170660094375945, 2.55833998023791}], 
      PointBox[{0.20131917693130896`, 3.717041150554657}], 
      PointBox[{0.00917728512114202, 3.1223495295414545`}], 
      PointBox[{0.9183425545805473, 3.760596152436823}], 
      PointBox[{0.3951067544786193, 2.9161338735509137`}], 
      PointBox[{0.0724001625809021, 2.827514698174939}], 
      PointBox[{0.11587439092652563`, 3.5853546960960783`}], 
      PointBox[{1.096732635790321, 3.932429749756473}], 
      PointBox[{0.2084688483379047, 2.6477121350062816`}], 
      PointBox[{0.03173661849621423, 2.9796034164734904`}], 
      PointBox[{0.7882464535811629, 4.025556785570598}], 
      PointBox[{0.8755509315777736, 2.811260680302131}], 
      PointBox[{0.6383519304966723, 2.9649431873569925`}], 
      PointBox[{0.3287323344086319, 3.2698122274460824`}], 
      PointBox[{1.092738693739801, 3.408728825533725}], 
      PointBox[{0.7076430326604171, 3.8563819879955767`}], 
      PointBox[{0.7345739856885056, 3.22972414241933}], 
      PointBox[{0.20198368589888815`, 2.9163379467996413`}], 
      PointBox[{1.366175687757325, 3.585547162971017}], 
      PointBox[{0.5380368878804593, 2.798218823617903}], 
      PointBox[{0.5611484215272071, 3.8968356732902687`}], 
      PointBox[{0.3531516979602145, 2.5666122387269867`}], 
      PointBox[{0.8890840974347212, 3.4954989879868075`}], 
      PointBox[{0.24345591202682382`, 3.5684210884920473`}], 
      PointBox[{0.21596260823012825`, 3.4060094267078975`}], 
      PointBox[{0.4202226748379636, 3.9131019354999026`}], 
      PointBox[{0.39524828018757674`, 3.3952439171942954`}], 
      PointBox[{0.9709069939623394, 3.9915473353939714`}], 
      PointBox[{0.49580185727236836`, 3.517965977039917}], 
      PointBox[{0.3840096987591233, 3.626612483394579}], 
      PointBox[{0.5825548183155123, 3.612986904004942}], 
      PointBox[{0.38665679838891664`, 2.717427910874113}], 
      PointBox[{1.065132249305329, 3.74948576957528}], 
      PointBox[{0.15430911374912482`, 3.052417992726065}], 
      PointBox[{0.4995176333165432, 3.1970671439308296`}], 
      PointBox[{1.1761419694980813`, 3.600810969776216}], 
      PointBox[{1.3333264586213778`, 3.3851690642366923`}], 
      PointBox[{0.05118163633143524, 3.4581428162491434`}], 
      PointBox[{0.6462494378475458, 2.653838208466605}], 
      PointBox[{0.7671344227745669, 3.6052050825776796`}], 
      PointBox[{0.30899178729345644`, 3.793113817594169}], 
      PointBox[{0.6294774039694229, 4.002320425174538}], 
      PointBox[{1.312815171325846, 3.7444573333269786`}], 
      PointBox[{0.46178525530524084`, 3.7739754889965536`}], 
      PointBox[{0., 3.2735032332680705`}], 
      PointBox[{0.8582735886378585, 3.902565598144778}], InsetBox[
       StyleBox["\<\"Tobinpwiiki\"\>",
        StripOnInput->False,
        FontSize->14,
        FontWeight->Bold], {2.372720061678777, 1.8282742316079337`},
       Background->RGBColor[1, 1, 0.85]]}},
    ContentSelectable->True],
   Annotation[#, VertexCoordinateRules -> CompressedData["
1:eJw9l3k4FF7UxwdjjJmxzW5ShFAJpSIt5yREKEmIkoj6+aUkSyFaSIUoLags
ESqhkrTZky2hSMi+lN9QGvv6ep/nfd77z/3nnnuf+/ne7zn3LHU6YekiTCAQ
JIQIhP+dZb4cflmbI4ZHs7bl1erz4WvBTxZ5XBSxUGzjppwkCAzQIe9WICKx
SF9KTKIOdCU+9kaxxLFw45lx0x350LXKOvTtWWl0WppCat43Dj/11pdsniDh
7jxzhToHAoa27r/4bhkRM2yEKDMnfsDjqepMY0kSSl+NjG/o/AiTnsu6aI5i
iCbaT/82VcJfl72yPR9ISPu4WqcIvoN6v0fYjGAO7uksilTQn4ertbEaz7qI
aHFl9T69iCIIGTrgfHCXNPr8YyNwSJ2A/Z3bE92TSfjSPPMYfxEBhzfcUIxX
I+M5wwP6saX3gd793u+iviieq8p0HzvcCNbRHcGNIxTcbF0a0zkxAeHLySST
K2QsV3G4qb62HqTblBympMWQ8H9D6LFdifUxFmqkaYk1ZAnjBf/4JocBFraQ
+tnxJiTM3eIKbcksrG4fuyZ7ZhyiLpzt0NjLQU5d5OCqawQ0yORbSJ5n4h/N
Vzb2vFGorJ/dzVvCQHH3+VXljaI4XKFt/t9NBmpVuWWtdp0E4xPHDUZtuViq
6hBgGkjCAbNS0WERLup+m7iyRl4YP4nUF7swGNh267FpfakYkgvTStVmZPDV
tsvJCWeE0fHlkLO8JBcP+qwitj4QQ8uCHqdOPhMnVDvUqmxHoPoXJ6S8lI3x
03dyM7PEsfmTlDD/EBff2pIFIhEiWJqpe031CAMJulUR9dvmYER5qX1bKQsX
32V0UbRmoGZ+ipuWw8WvBVOdLj+FMLBob48/i4e9pVWdxYuJqKF6pIrzgYV5
yZc0phRGobHeVPKRkSwKJQcqDU8ScU+bWkKNGwPnE4jP1M3Hobpxgp/vJYvr
0g1yx36LYqmhYpLMcVkU5kYTbjaJoUGtkO+DQRn88D2tOFVLCAvOWznE/mJh
/DOL8PNJFEwQvnYaHsqijH3u47v6BDxQ6RhcO8vEeMaeM97dJNT+7n+wLJCD
rv2RUrHaVFyRxVDvHmBjCz07N8dlBoZuhCa8zKejsE/X8+53JDwZWp+wq5CO
MQ9/PJn4RcZX6ll+mt4sXCQms+uoCRXvU5ul0z9w0a5Q6Z9Lt0SRRlhpJy9g
47m5yPdL6oXQ9+2MQog3B42fTe9SM50Dp5YlSwvGZLG268726EEilorrzdct
l0UMO2gT5zkJCkeDNCgqHGwKm/r27dUYUJT6pW2Hubi9u338919h5KWb0a4U
cNE+MXJdWeUMbHw2SLr/goG9TQY62t7i6Oamei7Bg4HqaSJlDZ8IuNrFJJeV
T0JuNGnT9TXCuDG/IuRzHx3L+FKPVORE8MVcJveIKQd3VtV+aPIbAfMnAU8U
hbgo5cEr0+QSMIS1hJlF5qKXXMXn9FOj8DxH3tFmMxd/Xovq2FYsjiTVP1nP
3ZmouHYyuIZDxrgiS8GBIQ4qCBj4pn+BZ2hbpXYqA0XGguJyzInI0LK1/PSK
jV97RAzMty34o99LIU6JjS9O7deeshXAGsqijZubZdAjxKLx82URlO9YJ6xJ
YKHKlmnXWw1UFBO14vPSOVhsWeRsLTEGTHLlzx0fZfHrtUgqr5+EaXebziYF
MPH1M239XXqiODVq4encwEQDWu+j7ivimPe6u6CukIvGk48NLFaIIdHm7GhM
Axt7z9v8WRk+CTrhEi/umnGwfr+26VEbCqbk78zgyDNwJt7qcOTkNGhI+xv5
5sni3raaxbt8hXDJNk52hQEPK2i+tzWtRXCaz9DL4TPw3+XvH7ZcGgW5+5W+
4LDAqy88iNpARNeBpe6VnhxUNr4vy2qbgjhF9dA33bKotVUrVyN3DmhBUt4D
yxmocyQlReejOH4wM7d7GcLGhi25Jh0byRhoyV16K4aLR8vDksZ+zMEmq1/F
1V84mKV5au9ROxLmL91vty+Og3bi141tDSdgrUjI1rhWGXxiVmjyt4qIo6mK
b1yyWRiS+88VtqM47vjnlXxTMxtX3Fx62KRGFPVLKTdVFZjo9DXkd0H4LGj/
oS+7U89Ez9eCrVs6KJgpuSf/muKC3uO0wIjd47D1zBte1HIWZgutbyWsnIN9
RlpBvZVM3BkqtjSGNwE+/HK3FRQuhngFiwg/peBptTEJ/RIGyn2vG424Ioyk
CPEHfLYsfjAyv9PCIKL9XMoSs0NMNPbUsuu/NQkDdU4/72su+FctMTNniTg2
Nm+V/7mQbwa6PaefXZoA7vyJiNt9TEzlh3oECKZghc5MTLYQDwuON3kf+imK
GYm7zCSd2HjssOyDWfdR2BnkUsZM5iDFt5H1MYCMGaM92eTnHHxyKi3/3S1x
9Ktopp/ZLItWl43TqPUkvFTA9dhnxcUPVu4lUzwhbNyjNHmWx8F7CQS/y9Vk
LO51sONk0rEvKEaBpSKMZlsyw6KX8dA55Brv02ECbjbNsDgDPFz7xDV4U7AQ
Uv4bvxyaRkfRW8kPs5VEcbUoVbc9mo6FIy5BjqbTYG9mduG1Kh2Hsw07fheL
YpSXzLTxWxZOBKbb+p+dhLhSrgfxAAcDs3RVHEzEcEPni5Szhmz0EdIrcxWI
4+uj6v1WuSysXR20v8CMgHezr1zLlpPFt+GNHV9Lyejhajmdms7A4H20SF4K
BQ16ClgVTlz0bTDNfisxDv2/WtYLadFRhT9m8HihDhcfjF9+biHfpBTNGyVX
TsFAdd63e80snDG0b+obpGKKmHN2w2suapvXfntVII4BaedV3BPYqDgYlq3X
T0FVnQaL5oX4PCXdkNtsMq5Jqkss2UlHPTVXNXdTApb1JCvPa3KxTX5e8hdv
GiyKamuYmWxkZAdHZfvPQ719j/jiEQa6278JGZCbBt3+pLvCFxnoM6ks5eVJ
xvDsyVVKNly01h8b1HxFxnbNxIc0Yxb2fJnjDG6iYNfT/eQLbSy0dfLhReiT
8bVnupvtgj/uF174PU8TxSrloIPGC362Sx5cp948A/FfVwunnGejRqP9lkBJ
MdxMK5Me2CqOaV7qt78xSai3TNRFypuOzwwTNex7xNBOTTlCbqHeHdt8R9/x
hDBuMLL1C/zERibTZMRpVABGqXeniEosVO+uWRJhSMaPaXs82hNk8V1YsnFG
tAgGl8r1pOnTMU6JmES0noNl0kJb6t/Q8dzyszqFUwQ0aa2rBlUWlnGct74/
PQZWBVUOHv+yUO3u4YGP5wUQHu4Yty+Mgdb9HlGfR0loEyM4OWLLxuI7cW76
JVTEW1m0FcuZeOx+nYHGbRI+qI3jLt7NxprIpl4RuVk4/eKlnlewLN5bkdHu
HiqMgb8fHdJVk8UXFE6a5SohnO182FYwycbKUx+eXnKn4l+aViRBi40d/ALn
h5PjsC8wVud8LR1r/Dq2NefNwcU1x1PJhkz8q2Xfd2Y3BS0vEXVGpTi49twv
G/EfIsjR6ty+KIeDF13oE/K+IjjxIzTtlQkTlQ8qtGx1oGL6r0K9jdayGLem
P5PSMQtGxWvyxqgL/wX6sTt8aQIu2T0TVcTkot8eozv6QpOgnl5lVFBCQjWW
Y+BUuRBGWmo0GM3REXRkGIeDJmH+eczwzQW93A8OZhLGRJAd7p46c4uFNisl
fFsJonh9ida0vZMsvnlDPL5+/TQkLJpcQtrIxCufPnzKCCBgYqPVytb2cYgo
md5lUz0MI9P5noLQQTAbyNk/vagVcGj2Cy39Nzhc/ydQlToA0oeXJVVH/YIc
H+kgd6dmkOvfEFa6hQ8p298cVRnsgo4Cw4DZ4j9w6lAg2W47AY/fTakMV/kL
PWYXC2l+BFyrMqRsHz0AKXesNbbf6AejsF0Hu38IoNWHRJa36IRLys3kPYuH
Ya2Hjvboiz9QLt9bs2O1AHQ/lbW17m2CN95DCp9thkF9s5LKLUYdHFO8odf6
cBL4KT92VOt1wc6wD0tT2WPQsa/eKoL+GaLchs0HE7rgaoW9+5EjP+EafV31
0Y4/UJlQNlji3AHqNZUM0a18uG3SX/1JZRiaSN5XvcYHwKkJMvRPjcDx2RTq
3XABCAKNrGQyCMhrm8pZO/IXPKXuzJt9XuBxlDvYXtwLCjq02o0besGBMqle
eXkcLJbKmV5NaYAl/43BAHkMAtZAfA2xDbId4kpK/Icgz1fygrXqF/DSyCI4
5feA8e6ugcXhw0DYI2awy3YA7L5mpmyIHYQhOitpp8Rf6Bs0jTyysK7skRX3
9csx+FN+fOiURx+kkK+nHWZ3w+NbEyOPvw1BTHC5f8K/k0BMondv7PsO7A+W
ZofU/0DzViOprhMjQDv3e1OYoA8ep6Q/U7fshCg7+rrZ7F5IWWzzfKXMf/Dz
tJauhnA/pFew/TMVBcCn3tVMvCkA3DYfbVpTDTtrTl7stP4Dxi9/uI0lkLHQ
5OVJ98QeGMi82bTBkIoWX1rfb6r8BWuEV53rHydi9rm+txxmFdx7cCN8kxYJ
DV55+RWN9cA2k4kLQz8kUEs2QGDjJYDa34tPVHVJoqNLYHuydD44QpKY2w0K
xnjm3qNsb4TU4LeaRrEL5z3q3JHlVAEXiesxI1Icm6gSxJqwDjjhECvw813o
mxTPpn8prYDaZXL0c+8kkNCTbX+16gKIBnY435giY4BdDV/KeRCqTpw/8YIl
idIhet/cTb7DTUOJ+c1WYqgQfWFF3eXnoDyeQSqMJyGuOpM1/Og9uNo4nazJ
pKF0zZoQnQWdpNUvv7nvLYXnzPiei7IqQTtG7cVFDVEsLJJYVw6JcNu9z0Kv
UQw71rklWmz4BZ9+NF1byZPGDn8l54tEPuxw37PZ5ywJlU15Yofce2D2+lbF
tXliaCFlbysQb4Cuy6oW0WoUfD519XqL/zCcrraKZyzwvRdrQRB52AcXYt5U
t32XxHflieZJ5/vB2cbn3plGcSScTBqLba6Atzlms+kL92lSyBNvaRkFyc/f
92ln0dAgIUsxVqcTgvmC8EInEhJWNFweHOmEAhtvjTx1KSSQdt8Uj2sEXqn1
/L+XiRhD2hToeIoPXQ2H1cvHqNihwl4ftfwzlHlQ7RXCafhnsPDRo5QqEE6s
bjsPVLRtO/BwsKcZLDg6zuSdUgv8zE8WmH6HPusbKd7LF97HV4uwJzK/4XtC
pEP2kBROTF7P1XnbDuP3422rlGkYxTvkdj+6CQIiW46Yi0jgT7tYwo6ULiiK
D3/q0k9D49ox1Zn8JqBd0W7a8V4UH/RRFpdThsFi2XKXv3MS6BFw8bFrYQn0
fOuWt/uXjISMVzXciXY4ftjyz51oceSq9W/2q/sLMYqW0941NLz3ekB+597R
hf2fB39hUpFAdn3nt/Yx1Ab1fjR6TMWoBwxzRmYPsAbqLkltFMU8f42zB8J/
gq2dWon3NxoeldtxNqTsC9TfTJE0s5VEra+CqqfKPaAm4Jo4CkujSoya/w6h
URDZ2k5NHZHAwv49+d0RP+DeikdSvNWS/993x/Vc91HUomA4dbv6lM9/YLR+
ZJeXrhQmVrSkWU0Lo5+wpP89nIX/Absqf3s=
     "]]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->{733., Automatic},
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{{3.465040611450932*^9, 3.465040698482259*^9}, 
   3.4650408413801928`*^9, {3.4650409191577168`*^9, 3.465041091464014*^9}, {
   3.4650411322778873`*^9, 3.465041145328228*^9}, {3.465042700761176*^9, 
   3.465042719264091*^9}, 3.465146481450098*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.4650416598418407`*^9, 3.465041669723289*^9}, {
  3.465041707865374*^9, 3.4650417095319843`*^9}, {3.465041772267397*^9, 
  3.4650417856375313`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"commons", "=", 
   RowBox[{
    RowBox[{"Select", "[", 
     RowBox[{
      RowBox[{"Tally", "[", 
       RowBox[{"gp", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ">=", "2"}], "&"}]}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.465042294200305*^9, 3.465042409586363*^9}, 
   3.465042481173162*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"commongp", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"gp", ",", 
     RowBox[{
      RowBox[{"MemberQ", "[", 
       RowBox[{"commons", ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.465042421997201*^9, 3.46504248514692*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphPlot", "[", 
  RowBox[{"commongp", ",", 
   RowBox[{"VertexRenderingFunction", "\[Rule]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"top5", ",", "#2"}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#2", ",", "Bold", ",", "14"}], "]"}], ",", "#1", ",", 
          RowBox[{"Background", "\[Rule]", "LightYellow"}]}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#2", ",", "Bold", ",", "12"}], "]"}], ",", "#1", ",", 
          RowBox[{"Background", "\[Rule]", "LightBlue"}]}], "]"}]}], "]"}], 
      "&"}], ")"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.465042500365622*^9, 3.465042541474662*^9}, {
  3.465042657714746*^9, 3.465042679135865*^9}, {3.465042728689025*^9, 
  3.465042792489159*^9}, {3.465042836959443*^9, 3.465042916155774*^9}, {
  3.465042957467533*^9, 3.465042957919176*^9}, {3.4650429925681334`*^9, 
  3.465043150838834*^9}}],

Cell[BoxData[
 GraphicsBox[
  TagBox[GraphicsGroupBox[{
     GraphicsComplexBox[{{0.7401151288893425, 2.2028800493761684`}, {0., 
      1.711788165856629}, {1.6712441995796745`, 1.994737123024738}, {
      1.4377022652254345`, 3.0064478383061943`}, {0.028699995963145764`, 
      2.4234542091156075`}, {1.370226391187444, 1.1895424318981678`}, {
      1.4132763587872768`, 2.3539289770701717`}, {1.0983760260715953`, 
      1.8194884551620976`}, {1.9085583825122996`, 1.4213014550602272`}, {
      1.9782375629590483`, 2.7589159005142125`}, {2.099401154377561, 
      1.0672684428719998`}, {2.4656753700437744`, 1.650400466167005}, {
      3.214043408043926, 2.4208163444578883`}, {3.237044224068463, 
      1.2450991184147282`}, {3.423145529764204, 1.8447675608472143`}, {
      2.371566788811016, 1.999107924636853}, {0.8643595402546126, 0.}}, 
      {RGBColor[0.5, 0., 0.], 
       LineBox[{{1, 2}, {1, 3}, {1, 4}, {1, 5}, {1, 6}, {1, 7}, {8, 2}, {8, 
        3}, {8, 9}, {8, 5}, {8, 6}, {8, 7}, {8, 10}, {8, 11}, {12, 3}, {12, 
        13}, {12, 14}, {12, 9}, {12, 6}, {12, 15}, {12, 7}, {12, 11}, {16, 
        3}, {16, 13}, {16, 14}, {16, 4}, {16, 9}, {16, 6}, {16, 15}, {16, 
        10}, {16, 11}, {17, 6}}]}], {InsetBox[
       StyleBox["\<\"Cloudruns\"\>",
        StripOnInput->False,
        FontSize->14,
        FontWeight->Bold], {0.7401151288893425, 2.2028800493761684`},
       Background->RGBColor[1, 1, 0.85]], InsetBox[
       StyleBox["\<\"Cluster (computing)\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {0., 1.711788165856629},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"Comparison of computer algebra systems\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {1.6712441995796745`, 1.994737123024738},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"Geodesy\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {1.4377022652254345`, 3.0064478383061943`},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"List of interactive geometry software\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {0.028699995963145764`, 2.4234542091156075`},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"Mathematica\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {1.370226391187444, 1.1895424318981678`},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"Sage (mathematics software)\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {1.4132763587872768`, 2.3539289770701717`},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"Pleasantville\"\>",
        StripOnInput->False,
        FontSize->14,
        FontWeight->Bold], {1.0983760260715953`, 1.8194884551620976`},
       Background->RGBColor[1, 1, 0.85]], InsetBox[
       StyleBox["\<\"GridMathematica\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {1.9085583825122996`, 1.4213014550602272`},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"Stephen Wolfram\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {1.9782375629590483`, 2.7589159005142125`},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"Wolfram Alpha\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {2.099401154377561, 1.0672684428719998`},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"Drkirkby\"\>",
        StripOnInput->False,
        FontSize->14,
        FontWeight->Bold], {2.4656753700437744`, 1.650400466167005},
       Background->RGBColor[1, 1, 0.85]], InsetBox[
       StyleBox["\<\"Comparison of numerical analysis software\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {3.214043408043926, 2.4208163444578883`},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"Comparison of statistical packages\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {3.237044224068463, 1.2450991184147282`},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"Publicon\"\>",
        StripOnInput->False,
        FontSize->12,
        FontWeight->Bold], {3.423145529764204, 1.8447675608472143`},
       Background->RGBColor[0.87, 0.94, 1]], InsetBox[
       StyleBox["\<\"JonMcLoone\"\>",
        StripOnInput->False,
        FontSize->14,
        FontWeight->Bold], {2.371566788811016, 1.999107924636853},
       Background->RGBColor[1, 1, 0.85]], InsetBox[
       StyleBox["\<\"Tobinpwiiki\"\>",
        StripOnInput->False,
        FontSize->14,
        FontWeight->Bold], {0.8643595402546126, 0.},
       Background->RGBColor[1, 1, 0.85]]}},
    ContentSelectable->True],
   Annotation[#, 
    VertexCoordinateRules -> {{0.7401151288893425, 2.2028800493761684`}, {0., 
     1.711788165856629}, {1.6712441995796745`, 1.994737123024738}, {
     1.4377022652254345`, 3.0064478383061943`}, {0.028699995963145764`, 
     2.4234542091156075`}, {1.370226391187444, 1.1895424318981678`}, {
     1.4132763587872768`, 2.3539289770701717`}, {1.0983760260715953`, 
     1.8194884551620976`}, {1.9085583825122996`, 1.4213014550602272`}, {
     1.9782375629590483`, 2.7589159005142125`}, {2.099401154377561, 
     1.0672684428719998`}, {2.4656753700437744`, 1.650400466167005}, {
     3.214043408043926, 2.4208163444578883`}, {3.237044224068463, 
     1.2450991184147282`}, {3.423145529764204, 1.8447675608472143`}, {
     2.371566788811016, 1.999107924636853}, {0.8643595402546126, 0.}}]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->{690., Automatic},
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{
  3.465042793632972*^9, {3.465042843552684*^9, 3.465042917170169*^9}, 
   3.46504295889776*^9, {3.465043018211132*^9, 3.465043151410575*^9}, 
   3.465146481828809*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.465042862795808*^9}]
},
WindowSize->{1031, 733},
WindowMargins->{{101, Automatic}, {Automatic, 13}},
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \
2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 77, 1, 27, "Input"],
Cell[625, 23, 1564, 25, 43, "Input"],
Cell[2192, 50, 403, 8, 27, "Input"],
Cell[2598, 60, 527, 12, 27, "Input"],
Cell[3128, 74, 361, 9, 27, "Input"],
Cell[3492, 85, 228, 6, 27, "Input"],
Cell[3723, 93, 762, 20, 27, "Input"],
Cell[4488, 115, 227, 5, 27, "Input"],
Cell[CellGroupData[{
Cell[4740, 124, 1310, 28, 43, "Input"],
Cell[6053, 154, 13484, 251, 472, "Output"]
}, Open  ]],
Cell[19552, 408, 118, 2, 27, "Input"],
Cell[19673, 412, 335, 9, 27, "Input"],
Cell[CellGroupData[{
Cell[20033, 425, 1947, 48, 73, "Input"],
Cell[21983, 475, 4561, 102, 472, "Output"]
}, Open  ]],
Cell[26559, 580, 224, 6, 27, "Input"],
Cell[CellGroupData[{
Cell[26808, 590, 596, 17, 27, "Input"],
Cell[27407, 609, 485, 9, 27, "Output"]
}, Open  ]],
Cell[27907, 621, 1261, 33, 43, "Input"],
Cell[CellGroupData[{
Cell[29193, 658, 1514, 31, 58, "Input"],
Cell[30710, 691, 19955, 424, 434, "Output"]
}, Open  ]],
Cell[50680, 1118, 1963, 51, 103, "Input"],
Cell[52646, 1171, 367, 9, 27, "Input"],
Cell[53016, 1182, 194, 5, 27, "Input"],
Cell[CellGroupData[{
Cell[53235, 1191, 982, 22, 43, "Input"],
Cell[54220, 1215, 29304, 505, 465, "Output"]
}, Open  ]],
Cell[83539, 1723, 196, 3, 27, "Input"],
Cell[83738, 1728, 554, 17, 27, "Input"],
Cell[84295, 1747, 359, 11, 27, "Input"],
Cell[CellGroupData[{
Cell[84679, 1762, 1092, 25, 73, "Input"],
Cell[85774, 1789, 6119, 126, 585, "Output"]
}, Open  ]],
Cell[91908, 1918, 68, 1, 27, "Input"]
}
]
*)

(* End of internal cache information *)
